| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_do_diags.F |
162 |
OPPS_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/opps/opps_do_diags.F |
163 |
OPPS_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('OPPSconvtave.',suff,OPPSconvectCountTave, |
|
./pkg/opps/opps_do_diags.F |
63 |
OPPS_DO_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/dic/dic_biotic_init.F |
32 |
DIC_BIOTIC_INIT |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/dic/dic_biotic_diags.F |
36 |
DIC_BIOTIC_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/dic/dic_biotic_diags.F |
66 |
DIC_BIOTIC_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/dic/dic_biotic_diags.F |
68 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_Biotave.',suff,BIOave, |
|
./pkg/dic/dic_biotic_diags.F |
70 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_Cartave.',suff,CARave, |
|
./pkg/dic/dic_biotic_diags.F |
72 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_Surtave.',suff,SURave, |
|
./pkg/dic/dic_biotic_diags.F |
74 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_SurOtave.',suff,SUROave, |
|
./pkg/dic/dic_biotic_diags.F |
76 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_pHtave.',suff,pHave, |
|
./pkg/dic/dic_biotic_diags.F |
78 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_pCO2tave.',suff,pCO2ave, |
|
./pkg/dic/dic_biotic_diags.F |
80 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_fluxCO2ave.',suff,fluxCO2ave, |
|
./pkg/cd_code/cd_code_init_fixed.F |
25 |
CD_CODE_INIT_FIXED |
CHARACTER*(10) suff |
|
./pkg/cd_code/cd_code_ini_vars.F |
26 |
CD_CODE_INI_VARS |
CHARACTER*(10) suff |
|
./pkg/cd_code/cd_code_checkpoint.F |
35 |
CD_CODE_READ_CHECKPOINT |
CHARACTER*(10) suff |
|
./pkg/cd_code/cd_code_checkpoint.F |
40 |
CD_CODE_READ_CHECKPOINT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/cd_code/cd_code_checkpoint.F |
42 |
CD_CODE_READ_CHECKPOINT |
WRITE(suff,'(A10)') pickupSuff |
|
./pkg/cd_code/cd_code_checkpoint.F |
49 |
CD_CODE_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_cd.',suff |
|
./pkg/obcs/obcs_checkpoint.F |
111 |
OBCS_READ_CHECKPOINT |
& prec, myIt, suff, myThid ) |
|
./pkg/obcs/obcs_checkpoint.F |
25 |
OBCS_READ_CHECKPOINT |
CHARACTER*(10) suff |
|
./pkg/obcs/obcs_checkpoint.F |
36 |
OBCS_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_obN.',suff |
|
./pkg/obcs/obcs_checkpoint.F |
46 |
OBCS_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_obS.',suff |
|
./pkg/obcs/obcs_checkpoint.F |
58 |
OBCS_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_obE.',suff |
|
./pkg/obcs/obcs_checkpoint.F |
69 |
OBCS_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_obW.',suff |
|
./pkg/obcs/obcs_checkpoint.F |
7 |
OBCS_READ_CHECKPOINT |
SUBROUTINE OBCS_READ_CHECKPOINT( prec, myIt, suff, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
158 |
OBCS_INIT_VARIABLES |
WRITE(suff,'(I10.10)') nIter0 |
|
./pkg/obcs/obcs_init_variables.F |
160 |
OBCS_INIT_VARIABLES |
WRITE(suff,'(A10)') pickupSuff |
|
./pkg/obcs/obcs_init_variables.F |
31 |
OBCS_INIT_VARIABLES |
CHARACTER*(10) suff |
|
./pkg/obcs/orlanski_checkpoint.F |
100 |
ORLANSKI_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_orlanskiE.',suff |
|
./pkg/obcs/orlanski_checkpoint.F |
131 |
ORLANSKI_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_orlanskiW.',suff |
|
./pkg/obcs/orlanski_checkpoint.F |
26 |
ORLANSKI_READ_CHECKPOINT |
CHARACTER*(10) suff |
|
./pkg/obcs/orlanski_checkpoint.F |
37 |
ORLANSKI_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_orlanskiN.',suff |
|
./pkg/obcs/orlanski_checkpoint.F |
68 |
ORLANSKI_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_orlanskiS.',suff |
|
./pkg/obcs/orlanski_checkpoint.F |
7 |
ORLANSKI_READ_CHECKPOINT |
SUBROUTINE ORLANSKI_READ_CHECKPOINT( prec, myIt, suff, myThid ) |
|
./pkg/rw/write_fld_xyz_rs.F |
15 |
WRITE_FLD_XYZ_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xyz_rs.F |
36 |
WRITE_FLD_XYZ_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_fld_xyz_rs.F |
39 |
WRITE_FLD_XYZ_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_fld_xyz_rs.F |
40 |
WRITE_FLD_XYZ_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_fld_xyz_rs.F |
41 |
WRITE_FLD_XYZ_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xyz_rs.F |
6 |
WRITE_FLD_XYZ_RS |
SUBROUTINE WRITE_FLD_XYZ_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_fld_xy_rl.F |
15 |
WRITE_FLD_XY_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xy_rl.F |
36 |
WRITE_FLD_XY_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_fld_xy_rl.F |
39 |
WRITE_FLD_XY_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_fld_xy_rl.F |
40 |
WRITE_FLD_XY_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_fld_xy_rl.F |
41 |
WRITE_FLD_XY_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xy_rl.F |
6 |
WRITE_FLD_XY_RL |
SUBROUTINE WRITE_FLD_XY_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xy_rl.F |
15 |
READ_FLD_XY_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xy_rl.F |
33 |
READ_FLD_XY_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/read_fld_xy_rl.F |
36 |
READ_FLD_XY_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/read_fld_xy_rl.F |
37 |
READ_FLD_XY_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/read_fld_xy_rl.F |
38 |
READ_FLD_XY_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_fld_xy_rl.F |
6 |
READ_FLD_XY_RL |
SUBROUTINE READ_FLD_XY_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xy_rs.F |
15 |
READ_FLD_XY_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xy_rs.F |
33 |
READ_FLD_XY_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/read_fld_xy_rs.F |
36 |
READ_FLD_XY_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/read_fld_xy_rs.F |
37 |
READ_FLD_XY_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/read_fld_xy_rs.F |
38 |
READ_FLD_XY_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_fld_xy_rs.F |
6 |
READ_FLD_XY_RS |
SUBROUTINE READ_FLD_XY_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_fld_xy_rs.F |
15 |
WRITE_FLD_XY_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xy_rs.F |
36 |
WRITE_FLD_XY_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_fld_xy_rs.F |
39 |
WRITE_FLD_XY_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_fld_xy_rs.F |
40 |
WRITE_FLD_XY_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_fld_xy_rs.F |
41 |
WRITE_FLD_XY_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xy_rs.F |
6 |
WRITE_FLD_XY_RS |
SUBROUTINE WRITE_FLD_XY_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_local_rs.F |
16 |
WRITE_LOCAL_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_local_rs.F |
39 |
WRITE_LOCAL_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_local_rs.F |
41 |
WRITE_LOCAL_RS |
ELSEIF ( suff .EQ. 'I10' ) THEN |
|
./pkg/rw/write_local_rs.F |
44 |
WRITE_LOCAL_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_local_rs.F |
45 |
WRITE_LOCAL_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_local_rs.F |
46 |
WRITE_LOCAL_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_local_rs.F |
7 |
WRITE_LOCAL_RS |
I pref,suff,nNr,field,bi,bj,iRec,myIter,myThid) |
|
./pkg/rw/read_fld_xyz_rs.F |
15 |
READ_FLD_XYZ_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xyz_rs.F |
33 |
READ_FLD_XYZ_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/read_fld_xyz_rs.F |
36 |
READ_FLD_XYZ_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/read_fld_xyz_rs.F |
37 |
READ_FLD_XYZ_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/read_fld_xyz_rs.F |
38 |
READ_FLD_XYZ_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_fld_xyz_rs.F |
6 |
READ_FLD_XYZ_RS |
SUBROUTINE READ_FLD_XYZ_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_local_rl.F |
16 |
WRITE_LOCAL_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_local_rl.F |
39 |
WRITE_LOCAL_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_local_rl.F |
41 |
WRITE_LOCAL_RL |
ELSEIF ( suff .EQ. 'I10' ) THEN |
|
./pkg/rw/write_local_rl.F |
44 |
WRITE_LOCAL_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_local_rl.F |
45 |
WRITE_LOCAL_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_local_rl.F |
46 |
WRITE_LOCAL_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_local_rl.F |
7 |
WRITE_LOCAL_RL |
I pref,suff,nNr,field,bi,bj,iRec,myIter,myThid) |
|
./pkg/rw/read_fld_xyz_rl.F |
15 |
READ_FLD_XYZ_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xyz_rl.F |
33 |
READ_FLD_XYZ_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/read_fld_xyz_rl.F |
36 |
READ_FLD_XYZ_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/read_fld_xyz_rl.F |
37 |
READ_FLD_XYZ_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/read_fld_xyz_rl.F |
38 |
READ_FLD_XYZ_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_fld_xyz_rl.F |
6 |
READ_FLD_XYZ_RL |
SUBROUTINE READ_FLD_XYZ_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_fld_xyz_rl.F |
15 |
WRITE_FLD_XYZ_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xyz_rl.F |
36 |
WRITE_FLD_XYZ_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_fld_xyz_rl.F |
39 |
WRITE_FLD_XYZ_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_fld_xyz_rl.F |
40 |
WRITE_FLD_XYZ_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_fld_xyz_rl.F |
41 |
WRITE_FLD_XYZ_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xyz_rl.F |
6 |
WRITE_FLD_XYZ_RL |
SUBROUTINE WRITE_FLD_XYZ_RL( pref,suff,field,myIter,myThid) |
|
./pkg/my82/my82_do_diags.F |
102 |
MY82_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/my82/my82_do_diags.F |
103 |
MY82_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('MYviscAr.',suff,MYviscAr, |
|
./pkg/my82/my82_do_diags.F |
105 |
MY82_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('MYdiffKr.',suff,MYdiffKr, |
|
./pkg/my82/my82_do_diags.F |
107 |
MY82_DO_DIAGS |
CALL WRITE_FLD_XY_RL('MYhbl.',suff,MYhbl, |
|
./pkg/my82/my82_do_diags.F |
194 |
MY82_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/my82/my82_do_diags.F |
195 |
MY82_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('MYviscAr-T.',suff,MYviscArTave, |
|
./pkg/my82/my82_do_diags.F |
197 |
MY82_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('MYdiffKr-T.',suff,MYdiffKrTave, |
|
./pkg/my82/my82_do_diags.F |
199 |
MY82_DO_DIAGS |
CALL WRITE_FLD_XY_RL('MYhbl-T.', suff,MYhblTave, |
|
./pkg/my82/my82_do_diags.F |
63 |
MY82_DO_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/bulk_force/bulkf_diags.F |
101 |
BULKF_DIAGS |
CALL WRITE_FLD_XY_RL('BULK_solar.',suff, |
|
./pkg/bulk_force/bulkf_diags.F |
103 |
BULKF_DIAGS |
CALL WRITE_FLD_XY_RL('BULK_ssq.',suff, |
|
./pkg/bulk_force/bulkf_diags.F |
42 |
BULKF_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/bulk_force/bulkf_diags.F |
81 |
BULKF_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/bulk_force/bulkf_diags.F |
83 |
BULKF_DIAGS |
CALL WRITE_FLD_XY_RL('BULK_Qnet.',suff,BULK_Qnet_AVE, |
|
./pkg/bulk_force/bulkf_diags.F |
85 |
BULKF_DIAGS |
CALL WRITE_FLD_XY_RL('BULK_EmPmR.',suff, |
|
./pkg/bulk_force/bulkf_diags.F |
87 |
BULKF_DIAGS |
CALL WRITE_FLD_XY_RL('BULK_fu.',suff, |
|
./pkg/bulk_force/bulkf_diags.F |
89 |
BULKF_DIAGS |
CALL WRITE_FLD_XY_RL('BULK_fv.',suff, |
|
./pkg/bulk_force/bulkf_diags.F |
91 |
BULKF_DIAGS |
CALL WRITE_FLD_XY_RL('BULK_latent.',suff, |
|
./pkg/bulk_force/bulkf_diags.F |
93 |
BULKF_DIAGS |
CALL WRITE_FLD_XY_RL('BULK_sensible.',suff, |
|
./pkg/bulk_force/bulkf_diags.F |
95 |
BULKF_DIAGS |
CALL WRITE_FLD_XY_RL('BULK_evap.',suff, |
|
./pkg/bulk_force/bulkf_diags.F |
97 |
BULKF_DIAGS |
CALL WRITE_FLD_XY_RL('BULK_flwup.',suff, |
|
./pkg/bulk_force/bulkf_diags.F |
99 |
BULKF_DIAGS |
CALL WRITE_FLD_XY_RL('BULK_flwupnet.',suff, |
|
./model/src/calc_surf_dr.F |
252 |
CALC_SURF_DR |
WRITE(suff,'(I10.10)') myIter |
|
./model/src/calc_surf_dr.F |
60 |
CALC_SURF_DR |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/autodiff/addummy_in_stepping.F |
108 |
ADDUMMY_IN_STEPPING |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/autodiff/addummy_in_stepping.F |
115 |
ADDUMMY_IN_STEPPING |
& 'ADJtheta.',suff, adtheta, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
117 |
ADDUMMY_IN_STEPPING |
& 'ADJsalt.',suff, adsalt, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
119 |
ADDUMMY_IN_STEPPING |
& 'ADJuvel.',suff, aduvel, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
121 |
ADDUMMY_IN_STEPPING |
& 'ADJvvel.',suff, advvel, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
123 |
ADDUMMY_IN_STEPPING |
& 'ADJwvel.',suff, advvel, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
125 |
ADDUMMY_IN_STEPPING |
& 'ADJetan.',suff, advvel, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
126 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJtaux.',suff, adfu, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
127 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJtauy.',suff, adfv, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
128 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
129 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
133 |
ADDUMMY_IN_STEPPING |
& suff, adustress, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
135 |
ADDUMMY_IN_STEPPING |
& suff, advstress, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
137 |
ADDUMMY_IN_STEPPING |
& suff, adhflux, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
139 |
ADDUMMY_IN_STEPPING |
& suff, adsflux, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
143 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJdiffkr.',suff, addiffkr, |
|
./pkg/autodiff/addummy_in_stepping.F |
147 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJkagm.',suff, adkapgm, |
|
./pkg/autodiff/addummy_in_stepping.F |
152 |
ADDUMMY_IN_STEPPING |
& 'ADJedtaux. ',suff, adeddytaux, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
156 |
ADDUMMY_IN_STEPPING |
& 'ADJedtauy. ',suff, adeddytauy, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
159 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL( 'ADJsst.',suff, adsst, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
162 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL( 'ADJsss.',suff, adsss, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
62 |
ADDUMMY_IN_STEPPING |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./pkg/autodiff/g_dummy_in_stepping.F |
102 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr, |
|
./pkg/autodiff/g_dummy_in_stepping.F |
106 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'G_Jkagm.',suff, g_kapgm, |
|
./pkg/autodiff/g_dummy_in_stepping.F |
57 |
G_DUMMY_IN_STEPPING |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./pkg/autodiff/g_dummy_in_stepping.F |
77 |
G_DUMMY_IN_STEPPING |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/autodiff/g_dummy_in_stepping.F |
83 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jtaux.',suff, g_fu, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
84 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jtauy.',suff, g_fv, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
85 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jqnet.',suff, g_qnet, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
86 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jempr.',suff, g_empmr, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
89 |
G_DUMMY_IN_STEPPING |
& 'G_Jtheta.',suff, g_theta, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
91 |
G_DUMMY_IN_STEPPING |
& 'G_Jsalt.',suff, g_salt, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
93 |
G_DUMMY_IN_STEPPING |
& 'G_Juvel.',suff, g_uvel, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
95 |
G_DUMMY_IN_STEPPING |
& 'G_Jvvel.',suff, g_vvel, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
97 |
G_DUMMY_IN_STEPPING |
& 'G_Jwvel.',suff, g_vvel, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
99 |
G_DUMMY_IN_STEPPING |
& 'G_Jetan.',suff, g_vvel, myIter, myThid) |
|
./pkg/thsice/thsice_output.F |
304 |
THSICE_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/thsice/thsice_output.F |
306 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_fract.', suff,iceMask, |
|
./pkg/thsice/thsice_output.F |
308 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_iceH.', suff,iceheight, |
|
./pkg/thsice/thsice_output.F |
310 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_snowH.', suff,snowheight, |
|
./pkg/thsice/thsice_output.F |
312 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Tsrf.', suff,Tsrf, |
|
./pkg/thsice/thsice_output.F |
314 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Tice1.', suff,Tice1, |
|
./pkg/thsice/thsice_output.F |
316 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Tice2.', suff,Tice2, |
|
./pkg/thsice/thsice_output.F |
318 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Qice1.', suff,Qice1, |
|
./pkg/thsice/thsice_output.F |
320 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Qice2.', suff,Qice2, |
|
./pkg/thsice/thsice_output.F |
322 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_snowPrc.',suff,snowPrc, |
|
./pkg/thsice/thsice_output.F |
324 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_snowAge.',suff,snowAge, |
|
./pkg/thsice/thsice_output.F |
327 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_tOceMxL.', suff, tOceMxL, |
|
./pkg/thsice/thsice_output.F |
329 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_sOceMxL.', suff, sOceMxL, |
|
./pkg/thsice/thsice_output.F |
48 |
THSICE_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) suff, fn |
|
./model/src/write_myfield.F |
55 |
WRITE_MYFIELD |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./model/src/write_myfield.F |
97 |
WRITE_MYFIELD |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/timeave/timeave_statv_write.F |
153 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('ETAtave.' ,suff,etatave ,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
154 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
155 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
156 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('uVeltave.',suff,uVeltave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
157 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
158 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('wVeltave.',suff,wVeltave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
160 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('Eta2tave.',suff,Eta2tave ,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
161 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UTtave.',suff,UTtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
162 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('VTtave.',suff,VTtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
163 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('WTtave.',suff,WTtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
164 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UStave.',suff,UStave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
165 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('VStave.',suff,VStave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
166 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('WStave.',suff,WStave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
167 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('TTtave.',suff,TTtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
168 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UUtave.',suff,UUtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
169 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('VVtave.',suff,VVtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
170 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UVtave.',suff,UVtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
174 |
TIMEAVE_STATV_WRITE |
& CALL WRITE_FLD_XYZ_RL('Tdiftave.',suff,TdiffRtave, |
|
./pkg/timeave/timeave_statv_write.F |
178 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('uZtave.',suff,uZetatave, |
|
./pkg/timeave/timeave_statv_write.F |
180 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('vZtave.',suff,vZetatave, |
|
./pkg/timeave/timeave_statv_write.F |
184 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('PhHytave.',suff,phiHydtave, |
|
./pkg/timeave/timeave_statv_write.F |
188 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('PHLtave.',suff,phiHydLowtave, |
|
./pkg/timeave/timeave_statv_write.F |
190 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('uFluxtave.',suff,uFluxtave, |
|
./pkg/timeave/timeave_statv_write.F |
192 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('vFluxtave.',suff,vFluxtave, |
|
./pkg/timeave/timeave_statv_write.F |
194 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('tFluxtave.',suff,tFluxtave, |
|
./pkg/timeave/timeave_statv_write.F |
196 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('sFluxtave.',suff,sFluxtave, |
|
./pkg/timeave/timeave_statv_write.F |
199 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('PHL2tave.',suff,phiHydLow2tave, |
|
./pkg/timeave/timeave_statv_write.F |
201 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('Convtave.',suff,ConvectCountTave, |
|
./pkg/timeave/timeave_statv_write.F |
208 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('hUtave.',suff,hUtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
209 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('hVtave.',suff,hVtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
48 |
TIMEAVE_STATV_WRITE |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./pkg/timeave/timeave_statv_write.F |
82 |
TIMEAVE_STATV_WRITE |
WRITE(suff,'(I10.10)') myIter |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
241 |
AIM_SURF_BC |
WRITE(suff,'(I10.10)') myIter |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
242 |
AIM_SURF_BC |
CALL AIM_WRITE_LOCAL('aim_SST.',suff,1,sst1(1,myThid), |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
63 |
AIM_SURF_BC |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./verification/carbon/code_ad/ptracers_init.F |
109 |
PTRACERS_INIT |
WRITE(suff,'(I10.10)') nIter0 |
|
./verification/carbon/code_ad/ptracers_init.F |
111 |
PTRACERS_INIT |
WRITE(suff,'(A10)') pickupSuff |
|
./verification/carbon/code_ad/ptracers_init.F |
37 |
PTRACERS_INIT |
CHARACTER*(10) suff |
|
./pkg/aim_v23/aim_write_local.F |
10 |
AIM_WRITE_LOCAL |
I pref,suff,nNr,field,bi,bj,iRec,myIter,myThid) |
|
./pkg/aim_v23/aim_write_local.F |
36 |
AIM_WRITE_LOCAL |
CHARACTER*(*) pref,suff |
|
./pkg/aim_v23/aim_write_local.F |
79 |
AIM_WRITE_LOCAL |
CALL WRITE_LOCAL_RL(pref,suff,nNr,tmpFld, |
|
./pkg/aim_v23/aim_write_tave.F |
194 |
AIM_WRITE_TAVE |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/aim_v23/aim_write_tave.F |
195 |
AIM_WRITE_TAVE |
CALL WRITE_FLD_XYZ_RL('aim_RHtave.',suff,aimRHtave, |
|
./pkg/aim_v23/aim_write_tave.F |
36 |
AIM_WRITE_TAVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf, suff, fn |
|
./pkg/aim_v23/aim_diagnostics.F |
100 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_RelHum.',suff,Nr,RH(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
104 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,DRAG(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
106 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,SPEED0(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
108 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,TSR(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
110 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,OLR(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
112 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,SSR(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
114 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,SLR(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
116 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,SHF(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
118 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,EVAP(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
120 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,PRECNV(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
122 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,PRECLS(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
124 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,CLOUDC(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
126 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,CLTOP(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
128 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,CBMF(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
130 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,T0(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
132 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,Q0(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
134 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,EnPrec(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
136 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,alb1(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
138 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,dTsurf(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
143 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,TSWclr(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
145 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,OLWclr(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
147 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,SSWclr(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
149 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,SLWclr(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
44 |
AIM_DIAGNOSTICS |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/aim_v23/aim_diagnostics.F |
64 |
AIM_DIAGNOSTICS |
WRITE(suff,'(I10.10)') myIter+1 |
|
./pkg/aim_v23/aim_diagnostics.F |
67 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_RSW.',suff,Nr,TT_RSW(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
69 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_RLW.',suff,Nr,TT_RLW(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
71 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_CNV.',suff,Nr,TT_CNV(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
73 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_PBL.',suff,Nr,TT_PBL(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
75 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_LSC.',suff,Nr,TT_LSC(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
77 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dQ_CNV.',suff,Nr,QT_CNV(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
79 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dQ_PBL.',suff,Nr,QT_PBL(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
81 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dQ_LSC.',suff,Nr,QT_LSC(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
86 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_clskySW.',suff,Nr, |
|
./pkg/aim_v23/aim_diagnostics.F |
88 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_clskyLW.',suff,Nr, |
|
./pkg/aim_v23/aim_diagnostics.F |
97 |
AIM_DIAGNOSTICS |
WRITE(suff,'(I10.10)') myIter+1 |
|
./pkg/ptracers/ptracers_init.F |
105 |
PTRACERS_INIT |
WRITE(suff,'(I10.10)') nIter0 |
|
./pkg/ptracers/ptracers_init.F |
107 |
PTRACERS_INIT |
WRITE(suff,'(A10)') pickupSuff |
|
./pkg/ptracers/ptracers_init.F |
37 |
PTRACERS_INIT |
CHARACTER*(10) suff |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
10 |
PTRACERS_WRITE_CHECKPOINT |
SUBROUTINE PTRACERS_WRITE_CHECKPOINT( suff,myIter,myTime,myThid ) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
28 |
PTRACERS_WRITE_CHECKPOINT |
CHARACTER*(*) suff |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
50 |
PTRACERS_WRITE_CHECKPOINT |
DO iChar = 1,len(suff) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
51 |
PTRACERS_WRITE_CHECKPOINT |
IF ( suff(iChar:iChar) .NE. ' ') lChar=iChar |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
53 |
PTRACERS_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_ptracers.',suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_state.F |
105 |
PTRACERS_WRITE_STATE |
CALL WRITE_REC_XYZ_RL(suff, |
|
./pkg/ptracers/ptracers_write_state.F |
41 |
PTRACERS_WRITE_STATE |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/ptracers/ptracers_write_state.F |
80 |
PTRACERS_WRITE_STATE |
WRITE(suff,'(A)') 'PTRACERS' |
|
./pkg/ptracers/ptracers_write_state.F |
95 |
PTRACERS_WRITE_STATE |
WRITE(suff,'(A,I10.10)') 'PTRACERS',myIter |
|
./pkg/ptracers/ptracers_write_state.F |
99 |
PTRACERS_WRITE_STATE |
WRITE(suff,'(A7,I2.2,A1,I10.10)') |
|
./pkg/ptracers/ptracers_write_timeave.F |
124 |
PTRACERS_WRITE_TIMEAVE |
WRITE(suff,'(A7,I2.2,A1,I10.10)') 'PtrFluxtave', |
|
./pkg/ptracers/ptracers_write_timeave.F |
126 |
PTRACERS_WRITE_TIMEAVE |
CALL WRITE_FLD_XY_RL (suff,' ', |
|
./pkg/ptracers/ptracers_write_timeave.F |
129 |
PTRACERS_WRITE_TIMEAVE |
WRITE(suff,'(A7,I2.2,A1,I10.10)') 'PTRtave', |
|
./pkg/ptracers/ptracers_write_timeave.F |
131 |
PTRACERS_WRITE_TIMEAVE |
CALL WRITE_FLD_XYZ_RL(suff,' ', |
|
./pkg/ptracers/ptracers_write_timeave.F |
46 |
PTRACERS_WRITE_TIMEAVE |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./pkg/ptracers/ptracers_monitor.F |
49 |
PTRACERS_MONITOR |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/ptracers/ptracers_monitor.F |
96 |
PTRACERS_MONITOR |
WRITE(suff,'(A7,I2.2)') 'ptracer',ip |
|
./pkg/ptracers/ptracers_monitor.F |
99 |
PTRACERS_MONITOR |
& suff, maskC,hFacC,rA ,drF,myThid) |
|
./pkg/kpp/kpp_do_diags.F |
109 |
KPP_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/kpp/kpp_do_diags.F |
110 |
KPP_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('KPPviscAz.',suff,KPPviscAz, |
|
./pkg/kpp/kpp_do_diags.F |
112 |
KPP_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('KPPdiffKzT.',suff,KPPdiffKzT, |
|
./pkg/kpp/kpp_do_diags.F |
114 |
KPP_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('KPPdiffKzS.',suff,KPPdiffKzS, |
|
./pkg/kpp/kpp_do_diags.F |
116 |
KPP_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('KPPghat.',suff,KPPghat, |
|
./pkg/kpp/kpp_do_diags.F |
118 |
KPP_DO_DIAGS |
CALL WRITE_FLD_XY_RL('KPPhbl.',suff,KPPhbl, |
|
./pkg/kpp/kpp_do_diags.F |
257 |
KPP_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/kpp/kpp_do_diags.F |
258 |
KPP_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('KPPviscAz-T.',suff,KPPviscAzTave, |
|
./pkg/kpp/kpp_do_diags.F |
260 |
KPP_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('KPPdiffKzT-T.',suff,KPPdiffKzTTave, |
|
./pkg/kpp/kpp_do_diags.F |
262 |
KPP_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('KPPdiffKzS-T.',suff,KPPdif |