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,KPPdiffKzSTave, |
./pkg/kpp/kpp_do_diags.F |
264 |
KPP_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('KPPghat-T.',suff,KPPghatTave, |
./pkg/kpp/kpp_do_diags.F |
266 |
KPP_DO_DIAGS |
CALL WRITE_FLD_XY_RL('KPPhbl-T.',suff,KPPhblTave, |
./pkg/kpp/kpp_do_diags.F |
63 |
KPP_DO_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/ggl90/ggl90_do_diags.F |
101 |
GGL90_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
./pkg/ggl90/ggl90_do_diags.F |
102 |
GGL90_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('GGL90viscAr.',suff,GGL90viscAr, |
./pkg/ggl90/ggl90_do_diags.F |
104 |
GGL90_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('GGL90diffKr.',suff,GGL90diffKr, |
./pkg/ggl90/ggl90_do_diags.F |
106 |
GGL90_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('GGL90TKE.' ,suff,GGL90TKE, |
./pkg/ggl90/ggl90_do_diags.F |
193 |
GGL90_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
./pkg/ggl90/ggl90_do_diags.F |
194 |
GGL90_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('GGL90viscAr-T.',suff,GGL90viscArTave, |
./pkg/ggl90/ggl90_do_diags.F |
196 |
GGL90_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('GGL90diffKr-T.',suff,GGL90diffKrTave, |
./pkg/ggl90/ggl90_do_diags.F |
198 |
GGL90_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('GGL90TKE-T.', suff,GGL90TKETave, |
./pkg/ggl90/ggl90_do_diags.F |
63 |
GGL90_DO_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/ggl90/ggl90_init.F |
27 |
GGL90_INIT |
CHARACTER*(10) suff |
./pkg/ggl90/ggl90_checkpoint.F |
25 |
GGL90_READ_CHECKPOINT |
CHARACTER*(10) suff |
./pkg/ggl90/ggl90_checkpoint.F |
31 |
GGL90_READ_CHECKPOINT |
WRITE(suff,'(I10.10)') myIter |
./pkg/ggl90/ggl90_checkpoint.F |
33 |
GGL90_READ_CHECKPOINT |
WRITE(suff,'(A10)') pickupSuff |
./pkg/ggl90/ggl90_checkpoint.F |
41 |
GGL90_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_ggl90.',suff |
./pkg/diagnostics/diagnostics_out.F |
115 |
DIAGNOSTICS_OUT |
WRITE(suff,'(I10.10)') myIter |
./pkg/diagnostics/diagnostics_out.F |
117 |
DIAGNOSTICS_OUT |
WRITE( fn, '(A,A,A)' ) fnames(listId)(1:ilen),'.',suff(1:10) |
./pkg/diagnostics/diagnostics_out.F |
92 |
DIAGNOSTICS_OUT |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/diagnostics/diagnostics_write_pickup.F |
11 |
DIAGNOSTICS_WRITE_PICKUP |
I suff, |
./pkg/diagnostics/diagnostics_write_pickup.F |
163 |
DIAGNOSTICS_WRITE_PICKUP |
sn = ILNBLNK(suff) |
./pkg/diagnostics/diagnostics_write_pickup.F |
169 |
DIAGNOSTICS_WRITE_PICKUP |
write(fn,'(a,a)') 'pickup_qdiag.', suff(1:sn) |
./pkg/diagnostics/diagnostics_write_pickup.F |
179 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn) |
./pkg/diagnostics/diagnostics_write_pickup.F |
34 |
DIAGNOSTICS_WRITE_PICKUP |
CHARACTER*(*) suff |
./pkg/sbo/sbo_diags.F |
122 |
SBO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
./pkg/sbo/sbo_diags.F |
124 |
SBO_DIAGS |
CALL WRITE_FLD_XY_RL('OBPtave',suff,OBPtave, |
./pkg/sbo/sbo_diags.F |
39 |
SBO_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/shap_filt/shap_filt_apply_ts.F |
108 |
SHAP_FILT_APPLY_TS |
WRITE(suff,'(I10.10)') myIter |
./pkg/shap_filt/shap_filt_apply_ts.F |
109 |
SHAP_FILT_APPLY_TS |
CALL WRITE_FLD_XYZ_RL( 'shap_dT.', suff, Shap_tmpFld1, |
./pkg/shap_filt/shap_filt_apply_ts.F |
154 |
SHAP_FILT_APPLY_TS |
WRITE(suff,'(I10.10)') myIter |
./pkg/shap_filt/shap_filt_apply_ts.F |
155 |
SHAP_FILT_APPLY_TS |
CALL WRITE_FLD_XYZ_RL( 'shap_dS.', suff, Shap_tmpFld1, |
./pkg/shap_filt/shap_filt_apply_ts.F |
52 |
SHAP_FILT_APPLY_TS |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/shap_filt/shap_filt_apply_uv.F |
111 |
SHAP_FILT_APPLY_UV |
WRITE(suff,'(I10.10)') myIter |
./pkg/shap_filt/shap_filt_apply_uv.F |
112 |
SHAP_FILT_APPLY_UV |
CALL WRITE_FLD_XYZ_RL( 'shap_dU.', suff, Shap_tmpFld1, |
./pkg/shap_filt/shap_filt_apply_uv.F |
114 |
SHAP_FILT_APPLY_UV |
CALL WRITE_FLD_XYZ_RL( 'shap_dV.', suff, Shap_tmpFld2, |
./pkg/shap_filt/shap_filt_apply_uv.F |
56 |
SHAP_FILT_APPLY_UV |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/fizhi/fizhi_write_pickup.F |
36 |
FIZHI_WRITE_PICKUP |
CHARACTER*(*) suff |
./pkg/fizhi/fizhi_write_pickup.F |
65 |
FIZHI_WRITE_PICKUP |
DO iChara = 1,len(suff) |
./pkg/fizhi/fizhi_write_pickup.F |
66 |
FIZHI_WRITE_PICKUP |
IF ( suff(iChara:iChara) .NE. ' ') lChar=iChara |
./pkg/fizhi/fizhi_write_pickup.F |
68 |
FIZHI_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_fizhi.',suff(1:lChar) |
./pkg/fizhi/fizhi_write_pickup.F |
8 |
FIZHI_WRITE_PICKUP |
SUBROUTINE FIZHI_WRITE_PICKUP( suff, myTime, myIter, myThid ) |
./pkg/fizhi/fizhi_write_state.F |
44 |
FIZHI_WRITE_STATE |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/fizhi/fizhi_write_state.F |
61 |
FIZHI_WRITE_STATE |
WRITE(suff,'(I10.10)') myIter |
./pkg/fizhi/fizhi_write_state.F |
63 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
./pkg/fizhi/fizhi_write_state.F |
66 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
./pkg/fizhi/fizhi_write_state.F |
69 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
./pkg/fizhi/fizhi_write_state.F |
72 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
./pkg/matrix/matrix_write_tendency.F |
100 |
MATRIX_WRITE_TENDENCY |
CALL WRITE_REC_XYZ_RL(suff, |
./pkg/matrix/matrix_write_tendency.F |
28 |
MATRIX_WRITE_TENDENCY |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/matrix/matrix_write_tendency.F |
54 |
MATRIX_WRITE_TENDENCY |
WRITE(suff,'(A9,I2.2)') 'MATRIXEXP',iTracer |
./pkg/matrix/matrix_write_tendency.F |
57 |
MATRIX_WRITE_TENDENCY |
CALL WRITE_REC_XYZ_RL(suff, |
./pkg/matrix/matrix_write_tendency.F |
97 |
MATRIX_WRITE_TENDENCY |
WRITE(suff,'(A9,I2.2)') 'MATRIXIMP',iTracer |
./pkg/land/land_do_diags.F |
51 |
LAND_DO_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/land/land_do_diags.F |
60 |
LAND_DO_DIAGS |
WRITE(suff,'(I10.10)') iterWr |
./pkg/land/land_write_diags.F |
47 |
LAND_WRITE_DIAGS |
CHARACTER*(MAX_LEN_MBUF) msgBuf, suff, fn |
./pkg/land/land_write_pickup.F |
34 |
LAND_WRITE_PICKUP |
CHARACTER*(*) suff |
./pkg/land/land_write_pickup.F |
57 |
LAND_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
./pkg/land/land_write_pickup.F |
58 |
LAND_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar) |
./pkg/land/land_write_pickup.F |
9 |
LAND_WRITE_PICKUP |
SUBROUTINE LAND_WRITE_PICKUP( suff, myTime, myIter, myThid ) |
./model/src/checkpoint.F |
215 |
READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_ph.',suff |
./model/src/checkpoint.F |
220 |
READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_nh.',suff |
./model/src/checkpoint.F |
83 |
READ_CHECKPOINT |
CHARACTER*(10) suff |
./model/src/checkpoint.F |
90 |
READ_CHECKPOINT |
WRITE(suff,'(I10.10)') myIter |
./model/src/checkpoint.F |
92 |
READ_CHECKPOINT |
WRITE(suff,'(A10)') pickupSuff |
./model/src/checkpoint.F |
94 |
READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup.',suff |
./model/src/write_state.F |
123 |
WRITE_STATE |
WRITE(suff,'(I10.10)') myIter |
./model/src/write_state.F |
124 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVel,myIter,myThid) |
./model/src/write_state.F |
125 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVel,myIter,myThid) |
./model/src/write_state.F |
126 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'T.',suff,theta,myIter,myThid) |
./model/src/write_state.F |
127 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid) |
./model/src/write_state.F |
128 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid) |
./model/src/write_state.F |
129 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid) |
./model/src/write_state.F |
131 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHyd,myIter,myThid) |
./model/src/write_state.F |
134 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid) |
./model/src/write_state.F |
138 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid) |
./model/src/write_state.F |
73 |
WRITE_STATE |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/offline/offline_state.F |
42 |
OFFLINE_STATE |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/offline/offline_state.F |
73 |
OFFLINE_STATE |
WRITE(suff,'(I10.10)') myIter |
./pkg/seaice/seaice_do_diags.F |
107 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'UICE.',suff,arr,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
126 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'VICE.',suff,arr,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
145 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'HEFF.',suff,arr,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
164 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'AREA.',suff,arr,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
292 |
SEAICE_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
./pkg/seaice/seaice_do_diags.F |
295 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('FUtave.' ,suff,FUtave ,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
296 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('FVtave.' ,suff,FVtave ,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
297 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('EmPmRtave.',suff,EmPmRtave,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
298 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('QNETtave.' ,suff,QNETtave ,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
299 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('QSWtave.' ,suff,QSWtave ,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
300 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('UICEtave.' ,suff,UICEtave ,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
301 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('VICEtave.' ,suff,VICEtave ,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
302 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('HEFFtave.' ,suff,HEFFtave ,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
303 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('AREAtave.' ,suff,AREAtave ,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
32 |
SEAICE_DO_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/seaice/seaice_do_diags.F |
63 |
SEAICE_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
./pkg/seaice/seaice_do_diags.F |
66 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'UWIND.',suff,uwind,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
67 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'VWIND.',suff,vwind,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
68 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'FU.',suff,fu,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
69 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'FV.',suff,fv,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
70 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'EmPmR.',suff,EmPmR,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
71 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'Qnet.',suff,Qnet,myIter,myThid) |
./pkg/seaice/seaice_do_diags.F |
72 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'Qsw.',suff,Qsw,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
101 |
GMREDI_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
./pkg/gmredi/gmredi_output.F |
103 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwx-T.',suff,GM_Kwx_T,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
104 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwy-T.',suff,GM_Kwy_T,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
105 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwz-T.',suff,GM_Kwz_T,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
108 |
GMREDI_OUTPUT |
& CALL WRITE_FLD_XY_RL('Visbeck_K-T.',suff,Visbeck_K_T, |
./pkg/gmredi/gmredi_output.F |
113 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_PsiXtave.',suff,GM_PsiXtave, |
./pkg/gmredi/gmredi_output.F |
115 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_PsiYtave.',suff,GM_PsiYtave, |
./pkg/gmredi/gmredi_output.F |
47 |
GMREDI_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/gmredi/gmredi_output.F |
54 |
GMREDI_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
./pkg/gmredi/gmredi_output.F |
56 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kux.',suff,Kux,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
57 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kvy.',suff,Kvy,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
61 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kuz.',suff,Kuz,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
62 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kvz.',suff,Kvz,myIter,myThid) |
./pkg/pp81/pp81_do_diags.F |
100 |
PP81_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('PPdiffKr.',suff,PPdiffKr, |
./pkg/pp81/pp81_do_diags.F |
180 |
PP81_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
./pkg/pp81/pp81_do_diags.F |
181 |
PP81_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('PPviscAr-T.',suff,PPviscArTave, |
./pkg/pp81/pp81_do_diags.F |
183 |
PP81_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('PPdiffKr-T.',suff,PPdiffKrTave, |
./pkg/pp81/pp81_do_diags.F |
63 |
PP81_DO_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
./pkg/pp81/pp81_do_diags.F |
97 |
PP81_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
./pkg/pp81/pp81_do_diags.F |
98 |
PP81_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('PPviscAr.',suff,PPviscAr, |