| File |
Line number |
Procedure |
Code |
|
./pkg/dic/carbon_chem.F |
194 |
CALC_PCO2 |
fn = k1local*x*diclocal/b + |
|
./pkg/dic/carbon_chem.F |
223 |
CALC_PCO2 |
deltax = - fn/df |
|
./pkg/dic/carbon_chem.F |
263 |
CALC_PCO2 |
fn = k1local*x*diclocal/b + |
|
./pkg/dic/carbon_chem.F |
275 |
CALC_PCO2 |
fni(hstep) = fn |
|
./pkg/dic/carbon_chem.F |
93 |
CALC_PCO2 |
_RL fn |
|
./pkg/cd_code/cd_code_init_fixed.F |
24 |
CD_CODE_INIT_FIXED |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/cd_code/cd_code_ini_vars.F |
25 |
CD_CODE_INI_VARS |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/cd_code/cd_code_checkpoint.F |
125 |
CD_CODE_WRITE_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/cd_code/cd_code_checkpoint.F |
128 |
CD_CODE_WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_cd.',myIter |
|
./pkg/cd_code/cd_code_checkpoint.F |
130 |
CD_CODE_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_cd.',checkPtSuff(nCheckLev) |
|
./pkg/cd_code/cd_code_checkpoint.F |
136 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
137 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
138 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W('D',fn,0,0,'uVelD',uVelD, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
139 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W('D',fn,0,0,'vVelD',vVelD, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
140 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W('D',fn,0,0,'Unm1',Unm1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
141 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W('D',fn,0,0,'Vnm1',Vnm1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
142 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W('D',fn,0,0,'etaNm1', etaNm1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
147 |
CD_CODE_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,uVelD,1,myIter,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
148 |
CD_CODE_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,vVelD,2,myIter,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
149 |
CD_CODE_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,uNM1, 3,myIter,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
150 |
CD_CODE_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,vNM1, 4,myIter,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
151 |
CD_CODE_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,etaNm1,4*Nr+1, |
|
./pkg/cd_code/cd_code_checkpoint.F |
34 |
CD_CODE_READ_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/cd_code/cd_code_checkpoint.F |
49 |
CD_CODE_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_cd.',suff |
|
./pkg/cd_code/cd_code_checkpoint.F |
54 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
55 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
56 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'uVelD',uVelD, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
57 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'vVelD',vVelD, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
58 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'Unm1',Unm1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
59 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'Vnm1',Vnm1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
60 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'etaNm1', etaNm1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
65 |
CD_CODE_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uVelD, 1,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
66 |
CD_CODE_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vVelD, 2,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
67 |
CD_CODE_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uNM1, 3,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
68 |
CD_CODE_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vNM1, 4,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
70 |
CD_CODE_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL', 1,etaNm1,6*Nr+1,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
72 |
CD_CODE_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL', 1,etaNm1,4*Nr+1,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
148 |
OBCS_WRITE_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/obcs/obcs_checkpoint.F |
153 |
OBCS_WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_obN.',myIt |
|
./pkg/obcs/obcs_checkpoint.F |
155 |
OBCS_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_obN.',checkPtSuff(nCheckLev) |
|
./pkg/obcs/obcs_checkpoint.F |
157 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RS',Nr,OBNu,1,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
158 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RS',Nr,OBNv,2,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
159 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RS',Nr,OBNt,3,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
160 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RS',Nr,OBNs,4,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
162 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RS',Nr,OBNw,5,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
168 |
OBCS_WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_obS.',myIt |
|
./pkg/obcs/obcs_checkpoint.F |
170 |
OBCS_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_obS.',checkPtSuff(nCheckLev) |
|
./pkg/obcs/obcs_checkpoint.F |
172 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RS',Nr,OBSu,1,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
173 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RS',Nr,OBSv,2,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
174 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RS',Nr,OBSt,3,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
175 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RS',Nr,OBSs,4,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
177 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RS',Nr,OBSw,5,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
184 |
OBCS_WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_obE.',myIt |
|
./pkg/obcs/obcs_checkpoint.F |
186 |
OBCS_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_obE.',checkPtSuff(nCheckLev) |
|
./pkg/obcs/obcs_checkpoint.F |
188 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RS',Nr,OBEu,1,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
189 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RS',Nr,OBEv,2,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
190 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RS',Nr,OBEt,3,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
191 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RS',Nr,OBEs,4,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
193 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RS',Nr,OBEw,5,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
199 |
OBCS_WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_obW.',myIt |
|
./pkg/obcs/obcs_checkpoint.F |
201 |
OBCS_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_obW.',checkPtSuff(nCheckLev) |
|
./pkg/obcs/obcs_checkpoint.F |
203 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RS',Nr,OBWu,1,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
204 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RS',Nr,OBWv,2,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
205 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RS',Nr,OBWt,3,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
206 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RS',Nr,OBWs,4,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
208 |
OBCS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RS',Nr,OBWw,5,myIt,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
32 |
OBCS_READ_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/obcs/obcs_checkpoint.F |
36 |
OBCS_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_obN.',suff |
|
./pkg/obcs/obcs_checkpoint.F |
37 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RS',Nr,OBNu,1,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
38 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RS',Nr,OBNv,2,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
39 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RS',Nr,OBNt,3,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
40 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RS',Nr,OBNs,4,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
42 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RS',Nr,OBNw,5,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
46 |
OBCS_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_obS.',suff |
|
./pkg/obcs/obcs_checkpoint.F |
47 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RS',Nr,OBSu,1,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
48 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RS',Nr,OBSv,2,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
49 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RS',Nr,OBSt,3,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
50 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RS',Nr,OBSs,4,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
52 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RS',Nr,OBSw,5,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
58 |
OBCS_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_obE.',suff |
|
./pkg/obcs/obcs_checkpoint.F |
59 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RS',Nr,OBEu,1,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
60 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RS',Nr,OBEv,2,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
61 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RS',Nr,OBEt,3,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
62 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RS',Nr,OBEs,4,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
64 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RS',Nr,OBEw,5,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
69 |
OBCS_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_obW.',suff |
|
./pkg/obcs/obcs_checkpoint.F |
70 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RS',Nr,OBWu,1,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
71 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RS',Nr,OBWv,2,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
72 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RS',Nr,OBWt,3,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
73 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RS',Nr,OBWs,4,myThid) |
|
./pkg/obcs/obcs_checkpoint.F |
75 |
OBCS_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RS',Nr,OBWw,5,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
100 |
ORLANSKI_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_orlanskiE.',suff |
|
./pkg/obcs/orlanski_checkpoint.F |
101 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UE_STORE_1,1,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
102 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UE_STORE_2,2,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
103 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UE_STORE_3,3,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
104 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UE_STORE_4,4,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
105 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VE_STORE_1,5,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
106 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VE_STORE_2,6,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
107 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VE_STORE_3,7,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
108 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VE_STORE_4,8,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
109 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TE_STORE_1,9,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
110 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TE_STORE_2,10,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
111 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TE_STORE_3,11,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
112 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TE_STORE_4,12,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
113 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SE_STORE_1,13,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
114 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SE_STORE_2,14,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
115 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SE_STORE_3,15,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
116 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SE_STORE_4,16,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
117 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_UE,17,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
118 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_VE,18,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
119 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_TE,19,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
120 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_SE,20,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
122 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WE_STORE_1,21,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
123 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WE_STORE_2,22,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
124 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WE_STORE_3,23,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
125 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WE_STORE_4,24,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
126 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_WE,25,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
131 |
ORLANSKI_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_orlanskiW.',suff |
|
./pkg/obcs/orlanski_checkpoint.F |
132 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UW_STORE_1,1,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
133 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UW_STORE_2,2,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
134 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UW_STORE_3,3,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
135 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UW_STORE_4,4,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
136 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VW_STORE_1,5,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
137 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VW_STORE_2,6,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
138 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VW_STORE_3,7,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
139 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VW_STORE_4,8,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
140 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TW_STORE_1,9,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
141 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TW_STORE_2,10,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
142 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TW_STORE_3,11,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
143 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TW_STORE_4,12,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
144 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SW_STORE_1,13,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
145 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SW_STORE_2,14,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
146 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SW_STORE_3,15,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
147 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SW_STORE_4,16,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
148 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_UW,17,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
149 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_VW,18,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
150 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_TW,19,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
151 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_SW,20,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
153 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WW_STORE_1,21,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
154 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WW_STORE_2,22,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
155 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WW_STORE_3,23,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
156 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WW_STORE_4,24,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
157 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_WW,25,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
308 |
ORLANSKI_WRITE_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/obcs/orlanski_checkpoint.F |
313 |
ORLANSKI_WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_orlanskiN.',myIt |
|
./pkg/obcs/orlanski_checkpoint.F |
315 |
ORLANSKI_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_orlanskiN.',checkPtSuff(nCheckLev) |
|
./pkg/obcs/orlanski_checkpoint.F |
317 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,UN_STORE_1,1, |
|
./pkg/obcs/orlanski_checkpoint.F |
319 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,UN_STORE_2,2, |
|
./pkg/obcs/orlanski_checkpoint.F |
321 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,UN_STORE_3,3, |
|
./pkg/obcs/orlanski_checkpoint.F |
323 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,UN_STORE_4,4, |
|
./pkg/obcs/orlanski_checkpoint.F |
325 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VN_STORE_1,5, |
|
./pkg/obcs/orlanski_checkpoint.F |
327 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VN_STORE_2,6, |
|
./pkg/obcs/orlanski_checkpoint.F |
329 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VN_STORE_3,7, |
|
./pkg/obcs/orlanski_checkpoint.F |
331 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VN_STORE_4,8, |
|
./pkg/obcs/orlanski_checkpoint.F |
333 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TN_STORE_1,9, |
|
./pkg/obcs/orlanski_checkpoint.F |
335 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TN_STORE_2,10, |
|
./pkg/obcs/orlanski_checkpoint.F |
337 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TN_STORE_3,11, |
|
./pkg/obcs/orlanski_checkpoint.F |
339 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TN_STORE_4,12, |
|
./pkg/obcs/orlanski_checkpoint.F |
33 |
ORLANSKI_READ_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/obcs/orlanski_checkpoint.F |
341 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SN_STORE_1,13, |
|
./pkg/obcs/orlanski_checkpoint.F |
343 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SN_STORE_2,14, |
|
./pkg/obcs/orlanski_checkpoint.F |
345 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SN_STORE_3,15, |
|
./pkg/obcs/orlanski_checkpoint.F |
347 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SN_STORE_4,16, |
|
./pkg/obcs/orlanski_checkpoint.F |
349 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_UN,17, |
|
./pkg/obcs/orlanski_checkpoint.F |
351 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_VN,18, |
|
./pkg/obcs/orlanski_checkpoint.F |
353 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_TN,19, |
|
./pkg/obcs/orlanski_checkpoint.F |
355 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_SN,20, |
|
./pkg/obcs/orlanski_checkpoint.F |
358 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WN_STORE_1,21, |
|
./pkg/obcs/orlanski_checkpoint.F |
360 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WN_STORE_2,22, |
|
./pkg/obcs/orlanski_checkpoint.F |
362 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WN_STORE_3,23, |
|
./pkg/obcs/orlanski_checkpoint.F |
364 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WN_STORE_4,24, |
|
./pkg/obcs/orlanski_checkpoint.F |
366 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_WN,25, |
|
./pkg/obcs/orlanski_checkpoint.F |
373 |
ORLANSKI_WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_orlanskiS.',myIt |
|
./pkg/obcs/orlanski_checkpoint.F |
375 |
ORLANSKI_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_orlanskiS.',checkPtSuff(nCheckLev) |
|
./pkg/obcs/orlanski_checkpoint.F |
377 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,US_STORE_1,1, |
|
./pkg/obcs/orlanski_checkpoint.F |
379 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,US_STORE_2,2, |
|
./pkg/obcs/orlanski_checkpoint.F |
37 |
ORLANSKI_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_orlanskiN.',suff |
|
./pkg/obcs/orlanski_checkpoint.F |
381 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,US_STORE_3,3, |
|
./pkg/obcs/orlanski_checkpoint.F |
383 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,US_STORE_4,4, |
|
./pkg/obcs/orlanski_checkpoint.F |
385 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VS_STORE_1,5, |
|
./pkg/obcs/orlanski_checkpoint.F |
387 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VS_STORE_2,6, |
|
./pkg/obcs/orlanski_checkpoint.F |
389 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VS_STORE_3,7, |
|
./pkg/obcs/orlanski_checkpoint.F |
38 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,UN_STORE_1,1,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
391 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VS_STORE_4,8, |
|
./pkg/obcs/orlanski_checkpoint.F |
393 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TS_STORE_1,9, |
|
./pkg/obcs/orlanski_checkpoint.F |
395 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TS_STORE_2,10, |
|
./pkg/obcs/orlanski_checkpoint.F |
397 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TS_STORE_3,11, |
|
./pkg/obcs/orlanski_checkpoint.F |
399 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TS_STORE_4,12, |
|
./pkg/obcs/orlanski_checkpoint.F |
39 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,UN_STORE_2,2,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
401 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SS_STORE_1,13, |
|
./pkg/obcs/orlanski_checkpoint.F |
403 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SS_STORE_2,14, |
|
./pkg/obcs/orlanski_checkpoint.F |
405 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SS_STORE_3,15, |
|
./pkg/obcs/orlanski_checkpoint.F |
407 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SS_STORE_4,16, |
|
./pkg/obcs/orlanski_checkpoint.F |
409 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_US,17, |
|
./pkg/obcs/orlanski_checkpoint.F |
40 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,UN_STORE_3,3,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
411 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_VS,18, |
|
./pkg/obcs/orlanski_checkpoint.F |
413 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_TS,19, |
|
./pkg/obcs/orlanski_checkpoint.F |
415 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_SS,20, |
|
./pkg/obcs/orlanski_checkpoint.F |
418 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WS_STORE_1,21, |
|
./pkg/obcs/orlanski_checkpoint.F |
41 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,UN_STORE_4,4,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
420 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WS_STORE_2,22, |
|
./pkg/obcs/orlanski_checkpoint.F |
422 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WS_STORE_3,23, |
|
./pkg/obcs/orlanski_checkpoint.F |
424 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WS_STORE_4,24, |
|
./pkg/obcs/orlanski_checkpoint.F |
426 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_WS,25, |
|
./pkg/obcs/orlanski_checkpoint.F |
42 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VN_STORE_1,5,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
434 |
ORLANSKI_WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_orlanskiE.',myIt |
|
./pkg/obcs/orlanski_checkpoint.F |
436 |
ORLANSKI_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_orlanskiE.',checkPtSuff(nCheckLev) |
|
./pkg/obcs/orlanski_checkpoint.F |
438 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UE_STORE_1,1, |
|
./pkg/obcs/orlanski_checkpoint.F |
43 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VN_STORE_2,6,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
440 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UE_STORE_2,2, |
|
./pkg/obcs/orlanski_checkpoint.F |
442 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UE_STORE_3,3, |
|
./pkg/obcs/orlanski_checkpoint.F |
444 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UE_STORE_4,4, |
|
./pkg/obcs/orlanski_checkpoint.F |
446 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VE_STORE_1,5, |
|
./pkg/obcs/orlanski_checkpoint.F |
448 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VE_STORE_2,6, |
|
./pkg/obcs/orlanski_checkpoint.F |
44 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VN_STORE_3,7,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
450 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VE_STORE_3,7, |
|
./pkg/obcs/orlanski_checkpoint.F |
452 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VE_STORE_4,8, |
|
./pkg/obcs/orlanski_checkpoint.F |
454 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TE_STORE_1,9, |
|
./pkg/obcs/orlanski_checkpoint.F |
456 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TE_STORE_2,10, |
|
./pkg/obcs/orlanski_checkpoint.F |
458 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TE_STORE_3,11, |
|
./pkg/obcs/orlanski_checkpoint.F |
45 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VN_STORE_4,8,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
460 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TE_STORE_4,12, |
|
./pkg/obcs/orlanski_checkpoint.F |
462 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SE_STORE_1,13, |
|
./pkg/obcs/orlanski_checkpoint.F |
464 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SE_STORE_2,14, |
|
./pkg/obcs/orlanski_checkpoint.F |
466 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SE_STORE_3,15, |
|
./pkg/obcs/orlanski_checkpoint.F |
468 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SE_STORE_4,16, |
|
./pkg/obcs/orlanski_checkpoint.F |
46 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TN_STORE_1,9,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
470 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_UE,17, |
|
./pkg/obcs/orlanski_checkpoint.F |
472 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_VE,18, |
|
./pkg/obcs/orlanski_checkpoint.F |
474 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_TE,19, |
|
./pkg/obcs/orlanski_checkpoint.F |
476 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_SE,20, |
|
./pkg/obcs/orlanski_checkpoint.F |
479 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WE_STORE_1,21, |
|
./pkg/obcs/orlanski_checkpoint.F |
47 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TN_STORE_2,10,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
481 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WE_STORE_2,22, |
|
./pkg/obcs/orlanski_checkpoint.F |
483 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WE_STORE_3,23, |
|
./pkg/obcs/orlanski_checkpoint.F |
485 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WE_STORE_4,24, |
|
./pkg/obcs/orlanski_checkpoint.F |
487 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_WE,25, |
|
./pkg/obcs/orlanski_checkpoint.F |
48 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TN_STORE_3,11,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
494 |
ORLANSKI_WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_orlanskiW.',myIt |
|
./pkg/obcs/orlanski_checkpoint.F |
496 |
ORLANSKI_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_orlanskiW.',checkPtSuff(nCheckLev) |
|
./pkg/obcs/orlanski_checkpoint.F |
498 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UW_STORE_1,1, |
|
./pkg/obcs/orlanski_checkpoint.F |
49 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TN_STORE_4,12,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
500 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UW_STORE_2,2, |
|
./pkg/obcs/orlanski_checkpoint.F |
502 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UW_STORE_3,3, |
|
./pkg/obcs/orlanski_checkpoint.F |
504 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UW_STORE_4,4, |
|
./pkg/obcs/orlanski_checkpoint.F |
506 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VW_STORE_1,5, |
|
./pkg/obcs/orlanski_checkpoint.F |
508 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VW_STORE_2,6, |
|
./pkg/obcs/orlanski_checkpoint.F |
50 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SN_STORE_1,13,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
510 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VW_STORE_3,7, |
|
./pkg/obcs/orlanski_checkpoint.F |
512 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VW_STORE_4,8, |
|
./pkg/obcs/orlanski_checkpoint.F |
514 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TW_STORE_1,9, |
|
./pkg/obcs/orlanski_checkpoint.F |
516 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TW_STORE_2,10, |
|
./pkg/obcs/orlanski_checkpoint.F |
518 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TW_STORE_3,11, |
|
./pkg/obcs/orlanski_checkpoint.F |
51 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SN_STORE_2,14,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
520 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TW_STORE_4,12, |
|
./pkg/obcs/orlanski_checkpoint.F |
522 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SW_STORE_1,13, |
|
./pkg/obcs/orlanski_checkpoint.F |
524 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SW_STORE_2,14, |
|
./pkg/obcs/orlanski_checkpoint.F |
526 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SW_STORE_3,15, |
|
./pkg/obcs/orlanski_checkpoint.F |
528 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SW_STORE_4,16, |
|
./pkg/obcs/orlanski_checkpoint.F |
52 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SN_STORE_3,15,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
530 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_UW,17, |
|
./pkg/obcs/orlanski_checkpoint.F |
532 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_VW,18, |
|
./pkg/obcs/orlanski_checkpoint.F |
534 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_TW,19, |
|
./pkg/obcs/orlanski_checkpoint.F |
536 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_SW,20, |
|
./pkg/obcs/orlanski_checkpoint.F |
539 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WW_STORE_1,21, |
|
./pkg/obcs/orlanski_checkpoint.F |
53 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SN_STORE_4,16,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
541 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WW_STORE_2,22, |
|
./pkg/obcs/orlanski_checkpoint.F |
543 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WW_STORE_3,23, |
|
./pkg/obcs/orlanski_checkpoint.F |
545 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WW_STORE_4,24, |
|
./pkg/obcs/orlanski_checkpoint.F |
547 |
ORLANSKI_WRITE_CHECKPOINT |
CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_WW,25, |
|
./pkg/obcs/orlanski_checkpoint.F |
54 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_UN,17,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
55 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_VN,18,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
56 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_TN,19,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
57 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_SN,20,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
59 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WN_STORE_1,21,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
60 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WN_STORE_2,22,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
61 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WN_STORE_3,23,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
62 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WN_STORE_4,24,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
63 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_WN,25,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
68 |
ORLANSKI_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_orlanskiS.',suff |
|
./pkg/obcs/orlanski_checkpoint.F |
69 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,US_STORE_1,1,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
70 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,US_STORE_2,2,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
71 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,US_STORE_3,3,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
72 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,US_STORE_4,4,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
73 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VS_STORE_1,5,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
74 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VS_STORE_2,6,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
75 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VS_STORE_3,7,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
76 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VS_STORE_4,8,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
77 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TS_STORE_1,9,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
78 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TS_STORE_2,10,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
79 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TS_STORE_3,11,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
80 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TS_STORE_4,12,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
81 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SS_STORE_1,13,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
82 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SS_STORE_2,14,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
83 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SS_STORE_3,15,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
84 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SS_STORE_4,16,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
85 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_US,17,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
86 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_VS,18,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
87 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_TS,19,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
88 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_SS,20,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
90 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WS_STORE_1,21,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
91 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WS_STORE_2,22,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
92 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WS_STORE_3,23,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
93 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WS_STORE_4,24,myThid) |
|
./pkg/obcs/orlanski_checkpoint.F |
94 |
ORLANSKI_READ_CHECKPOINT |
CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_WS,25,myThid) |
|
./pkg/aim/aim_write_diags.F |
39 |
AIM_WRITE_TAVE |
CHARACTER*(MAX_LEN_MBUF) fn |
|
./pkg/aim/aim_write_diags.F |
71 |
AIM_WRITE_TAVE |
WRITE(fn,'(A,I10.10)') 'aimphyvars.',myIter |
|
./pkg/aim/aim_write_diags.F |
72 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,precFloat32,gf, |
|
./pkg/aim/aim_write_diags.F |
74 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,precFloat32,gf, |
|
./pkg/aim/aim_write_diags.F |
76 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,precFloat32,gf, |
|
./pkg/aim/aim_write_diags.F |
78 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,precFloat32,gf, |
|
./pkg/aim/aim_write_diags.F |
80 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,precFloat32,gf, |
|
./pkg/aim/aim_write_diags.F |
82 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,precFloat32,gf, |
|
./pkg/aim/aim_write_diags.F |
84 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,precFloat32,gf, |
|
./pkg/aim/aim_write_diags.F |
86 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,precFloat32,gf, |
|
./pkg/aim/aim_write_diags.F |
88 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,precFloat32,gf, |
|
./pkg/aim/aim_write_diags.F |
90 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,precFloat32,gf, |
|
./pkg/aim/aim_write_diags.F |
92 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,precFloat32,gf, |
|
./pkg/thsice/thsice_write_pickup.F |
45 |
THSICE_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/thsice/thsice_write_pickup.F |
48 |
THSICE_WRITE_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter |
|
./pkg/thsice/thsice_write_pickup.F |
50 |
THSICE_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_ic.',checkPtSuff(nCheckLev) |
|
./pkg/thsice/thsice_write_pickup.F |
54 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask, 1, |
|
./pkg/thsice/thsice_write_pickup.F |
56 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceHeight, 2, |
|
./pkg/thsice/thsice_write_pickup.F |
58 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,snowHeight,3, |
|
./pkg/thsice/thsice_write_pickup.F |
60 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tsrf, 4, myIter,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
61 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice1, 5, myIter,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
62 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice2, 6, myIter,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
63 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice1, 7, myIter,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
64 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2, 8, myIter,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
65 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,snowAge,9, myIter,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
68 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tOceMxL,10,myIter,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
69 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,sOceMxL,11,myIter,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
75 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, -1, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
76 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
77 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
79 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'iceMask', iceMask, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
80 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'iceHeight', iceHeight, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
81 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'snowHeight',snowHeight,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
82 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tsrf', Tsrf, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
83 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tice1', Tice1, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
84 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tice2', Tice1, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
85 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Qice1', Qice1, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
86 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Qice2', Qice2, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
87 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'snowAge', snowAge, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
89 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'tOceMxL',tOceMxL,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
90 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'sOceMxL',sOceMxL,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
43 |
THSICE_INI_VARS |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/thsice/thsice_read_pickup.F |
38 |
THSICE_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/thsice/thsice_read_pickup.F |
42 |
THSICE_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter |
|
./pkg/thsice/thsice_read_pickup.F |
43 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,iceMask, 1,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
44 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,iceHeight, 2,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
45 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,snowHeight,3,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
46 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,Tsrf, 4,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
47 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,Tice1, 5,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
48 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,Tice2, 6,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
49 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,Qice1, 7,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
50 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,Qice2, 8,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
51 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,snowAge, 9,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
54 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,tOceMxL, 10,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
55 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,sOceMxL, 11,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
62 |
THSICE_READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
63 |
THSICE_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
64 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'iceMask', iceMask, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
65 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'iceHeight', iceHeight, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
66 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'snowHeight',snowHeight,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
67 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tsrf', Tsrf, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
68 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tice1', Tice1, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
69 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tice2', Tice1, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
70 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Qice1', Qice1, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
71 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Qice2', Qice2, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
72 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'snowAge', snowAge, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
74 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'tOceMxL',tOceMxL,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
75 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sOceMxL',sOceMxL,myThid) |
|
./pkg/thsice/thsice_output.F |
189 |
THSICE_OUTPUT |
WRITE(fn,'(A,I10.10)') 'thSIce_tave.', myIter |
|
./pkg/thsice/thsice_output.F |
191 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
193 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
195 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
197 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
199 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
201 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
203 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
205 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
207 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
209 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
212 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
216 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
219 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
224 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
227 |
THSICE_OUTPUT |
CALL MDSWRITEFIELD( fn, writeBinaryPrec, gf, 'RL', 1, |
|
./pkg/thsice/thsice_output.F |
240 |
THSICE_OUTPUT |
CALL MNC_CW_SET_UDIM(fn, -1, myThid) |
|
./pkg/thsice/thsice_output.F |
241 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
|
./pkg/thsice/thsice_output.F |
242 |
THSICE_OUTPUT |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
|
./pkg/thsice/thsice_output.F |
243 |
THSICE_OUTPUT |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/thsice/thsice_output.F |
244 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'fract_ave', ice_fract_Ave, myThid) |
|
./pkg/thsice/thsice_output.F |
245 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'iceH_ave', ice_iceH_Ave, myThid) |
|
./pkg/thsice/thsice_output.F |
246 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'snowH_ave', ice_snowH_Ave, myThid) |
|
./pkg/thsice/thsice_output.F |
247 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'Tsrf_ave', ice_Tsrf_Ave, myThid) |
|
./pkg/thsice/thsice_output.F |
248 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'Tice1_ave', ice_Tice1_Ave, myThid) |
|
./pkg/thsice/thsice_output.F |
249 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'Tice2_ave', ice_Tice2_Ave, myThid) |
|
./pkg/thsice/thsice_output.F |
250 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'snowPr_ave',ice_snowPr_Ave,myThid) |
|
./pkg/thsice/thsice_output.F |
251 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'albedo_ave',ice_albedo_Ave,myThid) |
|
./pkg/thsice/thsice_output.F |
252 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'flx2oc_ave',ice_flx2oc_Ave,myThid) |
|
./pkg/thsice/thsice_output.F |
253 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'frw2oc_ave',ice_frw2oc_Ave,myThid) |
|
./pkg/thsice/thsice_output.F |
255 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'flxAtm_ave', |
|
./pkg/thsice/thsice_output.F |
257 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'frwAtm_ave', |
|
./pkg/thsice/thsice_output.F |
261 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'tMxL_ave',ice_tMxL_Ave,myThid) |
|
./pkg/thsice/thsice_output.F |
262 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',fn,0,0,'sMxL_ave',ice_sMxL_Ave,myThid) |
|
./pkg/thsice/thsice_output.F |
48 |
THSICE_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) suff, fn |
|
./pkg/flt/flt_up.F |
113 |
FLT_UP |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj,1, |
|
./pkg/flt/flt_up.F |
200 |
FLT_UP |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj, |
|
./pkg/flt/flt_up.F |
56 |
FLT_UP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/flt/flt_up.F |
69 |
FLT_UP |
fn = 'float_profiles' |
|
./pkg/flt/flt_up.F |
77 |
FLT_UP |
IL=ILNBLNK( fn ) |
|
./pkg/flt/flt_up.F |
81 |
FLT_UP |
& fn(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/flt/flt_up.F |
84 |
FLT_UP |
call MDSREADVECTOR_FLT(fn,globalFile,64,'RL', |
|
./pkg/flt/flt_traj.F |
113 |
FLT_TRAJ |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj,1, |
|
./pkg/flt/flt_traj.F |
160 |
FLT_TRAJ |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj, |
|
./pkg/flt/flt_traj.F |
55 |
FLT_TRAJ |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/flt/flt_traj.F |
68 |
FLT_TRAJ |
fn = 'float_trajectories' |
|
./pkg/flt/flt_traj.F |
76 |
FLT_TRAJ |
IL=ILNBLNK( fn ) |
|
./pkg/flt/flt_traj.F |
80 |
FLT_TRAJ |
& fn(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/flt/flt_traj.F |
83 |
FLT_TRAJ |
call MDSREADVECTOR_FLT(fn,globalFile,64,'RL', |
|
./model/src/packages_write_pickup.F |
153 |
PACKAGES_WRITE_PICKUP_NOW |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./model/src/packages_write_pickup.F |
167 |
PACKAGES_WRITE_PICKUP_NOW |
WRITE(fn,'(I10.10)') myIter |
|
./model/src/packages_write_pickup.F |
169 |
PACKAGES_WRITE_PICKUP_NOW |
WRITE(fn,'(A)') checkPtSuff(nCheckLev) |
|
./model/src/packages_write_pickup.F |
218 |
PACKAGES_WRITE_PICKUP_NOW |
CALL LAND_WRITE_PICKUP(fn,myTime,myIter,myThid) |
|
./model/src/packages_write_pickup.F |
225 |
PACKAGES_WRITE_PICKUP_NOW |
CALL FIZHI_WRITE_PICKUP(fn,myTime,myIter,myThid) |
|
./model/src/packages_write_pickup.F |
226 |
PACKAGES_WRITE_PICKUP_NOW |
CALL FIZHI_WRITE_VEGTILES(fn,0,myTime,myIter,myThid) |
|
./model/src/packages_write_pickup.F |
234 |
PACKAGES_WRITE_PICKUP_NOW |
CALL DIAGNOSTICS_WRITE_PICKUP(fn,myTime,myIter,myThid) |
|
./model/src/packages_write_pickup.F |
251 |
PACKAGES_WRITE_PICKUP_NOW |
CALL PTRACERS_WRITE_CHECKPOINT(fn,myIter,myTime,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
120 |
READ_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup.',myIter |
|
./verification/rotating_tank/code/checkpoint.F |
121 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uVel, 1,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
122 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gU, 2,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
123 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gUnm1, 3,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
124 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vVel, 4,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
125 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gV, 5,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
126 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gVnm1, 6,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
127 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,wVel, 7,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
128 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,theta, 8,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
129 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gT, 9,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
130 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gTnm1, 10,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
131 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,salt, 11,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
132 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gS, 12,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
133 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gSnm1, 13,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
134 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL', 1,etaN,13*Nr+1,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
137 |
READ_CHECKPOINT |
& CALL MDSREADFIELD(fn,prec,'RL',1,etaH,13*Nr+2,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
140 |
READ_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_cd.',myIter |
|
./verification/rotating_tank/code/checkpoint.F |
141 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uVelD, 1,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
142 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vVelD, 2,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
143 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uNM1, 3,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
144 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vNM1, 4,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
145 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,guCD, 5,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
146 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gvCD, 6,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
147 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL', 1,etaNm1,6*Nr+1,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
152 |
READ_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_nh.',myIter |
|
./verification/rotating_tank/code/checkpoint.F |
153 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,phi_nh,1,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
154 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gW, 2,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
162 |
READ_CHECKPOINT |
WRITE(fn,'(I10.10)') myIter |
|
./verification/rotating_tank/code/checkpoint.F |
293 |
WRITE_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./verification/rotating_tank/code/checkpoint.F |
371 |
WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup.',myIter |
|
./verification/rotating_tank/code/checkpoint.F |
373 |
WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup.',checkPtSuff(nCheckLev) |
|
./verification/rotating_tank/code/checkpoint.F |
375 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,uVel, 1,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
376 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gU, 2,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
377 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gUnm1, 3,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
378 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,vVel, 4,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
379 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gV, 5,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
380 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gVnm1, 6,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
381 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,wVel, 7,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
382 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,theta, 8,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
383 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gT, 9,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
384 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gTnm1, 10,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
385 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,salt, 11,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
386 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gS, 12,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
387 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gSnm1,13,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
388 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,etaN,13*Nr+1, |
|
./verification/rotating_tank/code/checkpoint.F |
391 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,etaH,13*Nr+2, |
|
./verification/rotating_tank/code/checkpoint.F |
396 |
WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_cd.',myIter |
|
./verification/rotating_tank/code/checkpoint.F |
398 |
WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_cd.',checkPtSuff(nCheckLev) |
|
./verification/rotating_tank/code/checkpoint.F |
400 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,uVelD,1,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
401 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,vVelD,2,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
402 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,uNM1, 3,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
403 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,vNM1, 4,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
404 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,guCD, 5,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
405 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gvCD, 6,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
406 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,etaNm1,6*Nr+1, |
|
./verification/rotating_tank/code/checkpoint.F |
412 |
WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_nh.',myIter |
|
./verification/rotating_tank/code/checkpoint.F |
414 |
WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_nh.',checkPtSuff(nCheckLev) |
|
./verification/rotating_tank/code/checkpoint.F |
416 |
WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_nh.',myIter |
|
./verification/rotating_tank/code/checkpoint.F |
417 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,phi_nh,1,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
418 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gW, 2,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
425 |
WRITE_CHECKPOINT |
WRITE(fn,'(I10.10)') myIter |
|
./verification/rotating_tank/code/checkpoint.F |
427 |
WRITE_CHECKPOINT |
WRITE(fn,'(A)') checkPtSuff(nCheckLev) |
|
./verification/rotating_tank/code/checkpoint.F |
460 |
WRITE_CHECKPOINT |
CALL PTRACERS_WRITE_CHECKPOINT(fn,myIter,myTime,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
70 |
READ_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/aim_v23/aim_write_tave.F |
152 |
AIM_WRITE_TAVE |
WRITE(fn,'(A,I10.10)') 'aimPhytave.',myIter |
|
./pkg/aim_v23/aim_write_tave.F |
153 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
155 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
157 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
159 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
161 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
163 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
165 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
167 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
169 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
171 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
173 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
175 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
177 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
179 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
181 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
183 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
185 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
187 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
189 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
191 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
36 |
AIM_WRITE_TAVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf, suff, fn |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
39 |
PTRACERS_READ_CHECKPOINT |
CHARACTER*(MAX_LEN_MBUF) fn |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
42 |
PTRACERS_READ_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_ptracers.',myIter |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
62 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
70 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
76 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
88 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
91 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
45 |
PTRACERS_WRITE_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
53 |
PTRACERS_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_ptracers.',suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
63 |
PTRACERS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
67 |
PTRACERS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./pkg/ggl90/ggl90_init.F |
26 |
GGL90_INIT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ggl90/ggl90_checkpoint.F |
24 |
GGL90_READ_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ggl90/ggl90_checkpoint.F |
41 |
GGL90_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_ggl90.',suff |
|
./pkg/ggl90/ggl90_checkpoint.F |
42 |
GGL90_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,GGL90TKE,1,myThid) |
|
./pkg/ggl90/ggl90_checkpoint.F |
78 |
GGL90_WRITE_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ggl90/ggl90_checkpoint.F |
84 |
GGL90_WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_ggl90.',myIter |
|
./pkg/ggl90/ggl90_checkpoint.F |
86 |
GGL90_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_ggl90.',checkPtSuff(nCheckLev) |
|
./pkg/ggl90/ggl90_checkpoint.F |
88 |
GGL90_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,GGL90TKE,1,myIter,myThid) |
|
./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 |
424 |
DIAGNOSTICS_OUT |
CALL MDSWRITEFIELD_NEW(fn,writeBinaryPrec,glf,'RL', |
|
./pkg/diagnostics/diagnostics_out.F |
428 |
DIAGNOSTICS_OUT |
CALL MDSWRITEFIELD_NEW(fn,precFloat32,glf,'RL', |
|
./pkg/diagnostics/diagnostics_out.F |
432 |
DIAGNOSTICS_OUT |
CALL MDSWRITEFIELD_NEW(fn,precFloat64,glf,'RL', |
|
./pkg/diagnostics/diagnostics_out.F |
91 |
DIAGNOSTICS_OUT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/diagnostics/diagnostics_summary.F |
37 |
DIAGNOSTICS_SUMMARY |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/diagnostics/diagnostics_summary.F |
58 |
DIAGNOSTICS_SUMMARY |
WRITE(fn,'(A,I10.10,A)') 'diagnostics_status.',myIter,'.txt' |
|
./pkg/diagnostics/diagnostics_summary.F |
59 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(fn) |
|
./pkg/diagnostics/diagnostics_summary.F |
61 |
DIAGNOSTICS_SUMMARY |
OPEN(dUnit,file=fn(1:iLen),status='unknown',form='formatted') |
|
./pkg/diagnostics/diagnostics_summary.F |
63 |
DIAGNOSTICS_SUMMARY |
& ' write diagnostics summary to file: ',fn(1:iLen) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
167 |
DIAGNOSTICS_WRITE_PICKUP |
fn(i:i) = ' ' |
|
./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 |
172 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',numdiags,qdiag, |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
177 |
DIAGNOSTICS_WRITE_PICKUP |
fn(i:i) = ' ' |
|
./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 |
181 |
DIAGNOSTICS_WRITE_PICKUP |
OPEN( dUnit, file=fn ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
47 |
DIAGNOSTICS_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
143 |
DIAGNOSTICS_READ_PICKUP |
fn(i:i) = ' ' |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
145 |
DIAGNOSTICS_READ_PICKUP |
write(fn,'(A,I10.10)') 'pickup_qdiag', nIter0 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
146 |
DIAGNOSTICS_READ_PICKUP |
CALL MDSREADFIELD(fn,readBinaryPrec,'RL', |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
151 |
DIAGNOSTICS_READ_PICKUP |
fn(i:i) = ' ' |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
153 |
DIAGNOSTICS_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_ndiag.', nIter0 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
155 |
DIAGNOSTICS_READ_PICKUP |
OPEN( dUnit, file=fn ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
37 |
DIAGNOSTICS_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
100 |
CPL_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn, writeBinaryPrec, gf, 'RL', |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
102 |
CPL_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn, writeBinaryPrec, gf, 'RL', |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
41 |
CPL_WRITE_DIAGS |
CHARACTER*(MAX_LEN_MBUF) fn |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
79 |
CPL_WRITE_DIAGS |
WRITE(fn,'(A,I10.10)') 'cplFldtave.',myIter |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
80 |
CPL_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn, writeBinaryPrec, gf, 'RL', |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
82 |
CPL_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn, writeBinaryPrec, gf, 'RL', |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
84 |
CPL_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn, writeBinaryPrec, gf, 'RL', |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
86 |
CPL_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn, writeBinaryPrec, gf, 'RL', |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
88 |
CPL_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn, writeBinaryPrec, gf, 'RL', |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
90 |
CPL_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn, writeBinaryPrec, gf, 'RL', |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
92 |
CPL_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn, writeBinaryPrec, gf, 'RL', |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
94 |
CPL_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn, writeBinaryPrec, gf, 'RL', |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
96 |
CPL_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn, writeBinaryPrec, gf, 'RL', |
|
./pkg/ocn_compon_interf/cpl_write_diags.F |
98 |
CPL_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn, writeBinaryPrec, gf, 'RL', |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
32 |
OCN_CPL_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
34 |
OCN_CPL_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
37 |
OCN_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,atmSLPr , 1,myThid) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
38 |
OCN_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,HeatFlux , 2,myThid) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
39 |
OCN_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,qShortWave, 3,myThid) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
40 |
OCN_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,tauX , 4,myThid) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
41 |
OCN_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,tauY , 5,myThid) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
42 |
OCN_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,FWFlux , 6,myThid) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
43 |
OCN_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,iceSaltFlx, 7,myThid) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
44 |
OCN_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,seaIceMass, 8,myThid) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
39 |
CPL_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
42 |
CPL_WRITE_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
44 |
CPL_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_cpl.',checkPtSuff(nCheckLev) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
46 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,atmSLPr , 1,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
47 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,HeatFlux , 2,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
48 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qShortWave, 3,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
54 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauX , 4,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
55 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauY , 5,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
56 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,FWFlux , 6,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
57 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceSaltFlx, 7,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
58 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,seaIceMass, 8,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
60 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,ocMxlD2cpl, 9,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
61 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSTocn2cpl,10,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
62 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSSocn2cpl,11,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
63 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,vSqocn2cpl,12,myIter,myThid) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
125 |
FIZHI_WRITE_VEGTILES |
& 'pickup_vegtiles.',fn(1:ilst),'.',iG,'.',jG,'.data' |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
316 |
FIZHI_READ_VEGTILES |
CHARACTER*80 fn |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
329 |
FIZHI_READ_VEGTILES |
WRITE(fn,'(a,I10.10)') 'pickup_vegtiles.',Iter |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
330 |
FIZHI_READ_VEGTILES |
ilst = ILNBLNK(fn) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
36 |
FIZHI_WRITE_VEGTILES |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
380 |
FIZHI_READ_VEGTILES |
& fn(1:ilst),'.',iG,'.',jG,'.data' |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
59 |
FIZHI_WRITE_VEGTILES |
ilst = ILNBLNK(fn) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
63 |
FIZHI_WRITE_VEGTILES |
WRITE(bnam,'(a,a)') 'pickup_vegtiles.', fn(1:ilst) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
67 |
FIZHI_WRITE_VEGTILES |
WRITE(bnam,'(a,a)') 'state_vegtiles.', fn(1:ilst) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
9 |
FIZHI_WRITE_VEGTILES |
SUBROUTINE FIZHI_WRITE_VEGTILES(fn,pickupflg,myTime,myIter,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
103 |
FIZHI_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter |
|
./pkg/fizhi/fizhi_read_pickup.F |
105 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'uphy',uphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
106 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'vphy',vphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
107 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'thphy',thphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
108 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sphy',sphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
109 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sphy',sphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
43 |
FIZHI_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/fizhi/fizhi_read_pickup.F |
48 |
FIZHI_READ_PICKUP |
fn(i:i) = ' ' |
|
./pkg/fizhi/fizhi_read_pickup.F |
50 |
FIZHI_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter |
|
./pkg/fizhi/fizhi_read_pickup.F |
57 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,uphy,1,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
58 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,vphy,2,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
59 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,thphy,3,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
60 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,sphy,4,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
61 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldtot_lw,5,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
62 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldras_lw,6,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
63 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldlsp_lw,7,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
64 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,lwlz,8,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
65 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldtot_sw,9,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
66 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldras_sw,10,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
67 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldlsp_sw,11,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
68 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,swlz,12,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
69 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,qliqavelw,13,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
70 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,qliqavesw,14,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
71 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavelw,15,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
72 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavesw,16,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
73 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,temp,17,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
100 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavesw,16,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
124 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,temp,17,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
46 |
FIZHI_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./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 |
73 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,uphy,1,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
74 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,vphy,2,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
75 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,thphy,3,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
76 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,sphy,4,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
78 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldtot_lw,5,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
80 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldras_lw,6,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
82 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldlsp_lw,7,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
84 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,lwlz,8,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
86 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldtot_sw,9,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
88 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldras_sw,10,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
90 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldlsp_sw,11,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
92 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,swlz,12,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
94 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,qliqavelw,13,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
96 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,qliqavesw,14,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
98 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavelw,15,myIter, |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
41 |
FIZHI_INIT_VEGSURFTILES |
CHARACTER*80 fn |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
53 |
FIZHI_INIT_VEGSURFTILES |
WRITE(fn,'(a,I8,a,I2.2,a)')'vegtiles_cs32.d',nymd,'z',ihour,'.bin' |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
62 |
FIZHI_INIT_VEGSURFTILES |
open(iUnit,file=fn,status='old',access='direct',recl=recl) |
|
./pkg/fizhi/fizhi_write_state.F |
45 |
FIZHI_WRITE_STATE |
CHARACTER*(80) fn |
|
./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 |
64 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,uphy,1,myIter,myThid) |
|
./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 |
67 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,vphy,1,myIter,myThid) |
|
./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 |
70 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_state.F |
72 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
|
./pkg/fizhi/fizhi_write_state.F |
73 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,sphy,1,myIter,myThid) |
|
./pkg/land/land_write_diags.F |
108 |
LAND_WRITE_DIAGS |
WRITE(fn,'(A,I10.10)') 'land_tave.', myIter |
|
./pkg/land/land_write_diags.F |
109 |
LAND_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/land/land_write_diags.F |
111 |
LAND_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/land/land_write_diags.F |
113 |
LAND_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/land/land_write_diags.F |
116 |
LAND_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/land/land_write_diags.F |
118 |
LAND_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/land/land_write_diags.F |
120 |
LAND_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/land/land_write_diags.F |
122 |
LAND_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/land/land_write_diags.F |
124 |
LAND_WRITE_DIAGS |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/land/land_write_diags.F |
47 |
LAND_WRITE_DIAGS |
CHARACTER*(MAX_LEN_MBUF) msgBuf, suff, fn |
|
./pkg/land/land_write_pickup.F |
47 |
LAND_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./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 |
63 |
LAND_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev, |
|
./pkg/land/land_write_pickup.F |
65 |
LAND_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev, |
|
./pkg/land/land_write_pickup.F |
68 |
LAND_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1, |
|
./pkg/land/land_write_pickup.F |
70 |
LAND_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1, |
|
./pkg/land/land_write_pickup.F |
72 |
LAND_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1, |
|
./pkg/land/land_read_pickup.F |
41 |
LAND_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/land/land_read_pickup.F |
46 |
LAND_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_land.',myIter |
|
./pkg/land/land_read_pickup.F |
51 |
LAND_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundT,1,myThid) |
|
./pkg/land/land_read_pickup.F |
52 |
LAND_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundW,2,myThid) |
|
./pkg/land/land_read_pickup.F |
57 |
LAND_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_enthalp,1,myThid) |
|
./pkg/land/land_read_pickup.F |
58 |
LAND_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundW,2,myThid) |
|
./pkg/land/land_read_pickup.F |
60 |
LAND_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL', 1, land_skinT, k+1, myThid) |
|
./pkg/land/land_read_pickup.F |
61 |
LAND_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL', 1, land_hSnow, k+2, myThid) |
|
./pkg/land/land_read_pickup.F |
62 |
LAND_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL', 1, land_snowAge,k+3, myThid) |
|
./model/src/checkpoint.F |
144 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uVel, 1,myThid) |
|
./model/src/checkpoint.F |
145 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gU, 2,myThid) |
|
./model/src/checkpoint.F |
146 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,guNm1, 3,myThid) |
|
./model/src/checkpoint.F |
147 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vVel, 4,myThid) |
|
./model/src/checkpoint.F |
148 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gV, 5,myThid) |
|
./model/src/checkpoint.F |
149 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gvNm1, 6,myThid) |
|
./model/src/checkpoint.F |
150 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,theta, 7,myThid) |
|
./model/src/checkpoint.F |
151 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gT, 8,myThid) |
|
./model/src/checkpoint.F |
152 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gtNm1, 9,myThid) |
|
./model/src/checkpoint.F |
153 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,salt, 10,myThid) |
|
./model/src/checkpoint.F |
154 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gS, 11,myThid) |
|
./model/src/checkpoint.F |
155 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gsNm1, 12,myThid) |
|
./model/src/checkpoint.F |
157 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL', 1,etaN,12*Nr+1,myThid) |
|
./model/src/checkpoint.F |
160 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',1,etaH,12*Nr+2,myThid) |
|
./model/src/checkpoint.F |
168 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uVel, nj+1,myThid) |
|
./model/src/checkpoint.F |
169 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./model/src/checkpoint.F |
171 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./model/src/checkpoint.F |
174 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vVel, nj+1,myThid) |
|
./model/src/checkpoint.F |
175 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./model/src/checkpoint.F |
177 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./model/src/checkpoint.F |
180 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,theta,nj+1,myThid) |
|
./model/src/checkpoint.F |
181 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./model/src/checkpoint.F |
183 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./model/src/checkpoint.F |
186 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,salt, nj+1,myThid) |
|
./model/src/checkpoint.F |
187 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./model/src/checkpoint.F |
189 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./model/src/checkpoint.F |
193 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uVel, 1,myThid) |
|
./model/src/checkpoint.F |
194 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,guNm1, 2,myThid) |
|
./model/src/checkpoint.F |
195 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vVel, 3,myThid) |
|
./model/src/checkpoint.F |
196 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gvNm1, 4,myThid) |
|
./model/src/checkpoint.F |
197 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,theta, 5,myThid) |
|
./model/src/checkpoint.F |
198 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gtNm1, 6,myThid) |
|
./model/src/checkpoint.F |
199 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,salt, 7,myThid) |
|
./model/src/checkpoint.F |
200 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gsNm1, 8,myThid) |
|
./model/src/checkpoint.F |
203 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL', 1,etaN, nj*Nr+1,myThid) |
|
./model/src/checkpoint.F |
206 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',1,dEtaHdt,nj*Nr+2,myThid) |
|
./model/src/checkpoint.F |
209 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',1,etaH, nj*Nr+3,myThid) |
|
./model/src/checkpoint.F |
215 |
READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_ph.',suff |
|
./model/src/checkpoint.F |
216 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,totPhiHyd,1,myThid) |
|
./model/src/checkpoint.F |
220 |
READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_nh.',suff |
|
./model/src/checkpoint.F |
221 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,phi_nh,1,myThid) |
|
./model/src/checkpoint.F |
222 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, gW,2,myThid) |
|
./model/src/checkpoint.F |
235 |
READ_CHECKPOINT |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./model/src/checkpoint.F |
236 |
READ_CHECKPOINT |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./model/src/checkpoint.F |
237 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'U',uVel, myThid) |
|
./model/src/checkpoint.F |
238 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'V',vVel, myThid) |
|
./model/src/checkpoint.F |
239 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'Temp',theta, myThid) |
|
./model/src/checkpoint.F |
240 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'S',salt, myThid) |
|
./model/src/checkpoint.F |
241 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'Eta',etaN, myThid) |
|
./model/src/checkpoint.F |
243 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'gUnm1',guNm1, myThid) |
|
./model/src/checkpoint.F |
244 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'gVnm1',gvNm1, myThid) |
|
./model/src/checkpoint.F |
245 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'gTnm1',gtNm1, myThid) |
|
./model/src/checkpoint.F |
246 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'gSnm1',gsNm1, myThid) |
|
./model/src/checkpoint.F |
254 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'dEtaHdt',dEtaHdt,myThid) |
|
./model/src/checkpoint.F |
257 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'EtaH', etaH, myThid) |
|
./model/src/checkpoint.F |
262 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'phi_nh', phi_nh, myThid) |
|
./model/src/checkpoint.F |
263 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'gW', gW, myThid) |
|
./model/src/checkpoint.F |
267 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'phiHyd',totPhiHyd,myThid) |
|
./model/src/checkpoint.F |
470 |
WRITE_CHECKPOINT_NOW |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./model/src/checkpoint.F |
476 |
WRITE_CHECKPOINT_NOW |
fn(i:i) = ' ' |
|
./model/src/checkpoint.F |
479 |
WRITE_CHECKPOINT_NOW |
WRITE(fn,'(A,I10.10)') 'pickup.',myIter |
|
./model/src/checkpoint.F |
481 |
WRITE_CHECKPOINT_NOW |
WRITE(fn,'(A,A)') 'pickup.',checkPtSuff(nCheckLev) |
|
./model/src/checkpoint.F |
528 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,uVel, 1,myIter,myThid) |
|
./model/src/checkpoint.F |
529 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./model/src/checkpoint.F |
531 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./model/src/checkpoint.F |
533 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,vVel, 4,myIter,myThid) |
|
./model/src/checkpoint.F |
534 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./model/src/checkpoint.F |
536 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./model/src/checkpoint.F |
538 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,theta, 7,myIter,myThid) |
|
./model/src/checkpoint.F |
539 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./model/src/checkpoint.F |
541 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./model/src/checkpoint.F |
543 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,salt, 10,myIter,myThid) |
|
./model/src/checkpoint.F |
544 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./model/src/checkpoint.F |
546 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./model/src/checkpoint.F |
550 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,uVel, 1,myIter,myThid) |
|
./model/src/checkpoint.F |
551 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,guNm1,2,myIter,myThid) |
|
./model/src/checkpoint.F |
552 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,vVel, 3,myIter,myThid) |
|
./model/src/checkpoint.F |
553 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gvNm1,4,myIter,myThid) |
|
./model/src/checkpoint.F |
554 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,theta,5,myIter,myThid) |
|
./model/src/checkpoint.F |
555 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gtNm1,6,myIter,myThid) |
|
./model/src/checkpoint.F |
556 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,salt, 7,myIter,myThid) |
|
./model/src/checkpoint.F |
557 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gsNm1,8,myIter,myThid) |
|
./model/src/checkpoint.F |
560 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,etaN, nj*Nr+1, |
|
./model/src/checkpoint.F |
563 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,dEtaHdt,nj*Nr+2, |
|
./model/src/checkpoint.F |
565 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,etaHnm1,nj*Nr+3, |
|
./model/src/checkpoint.F |
570 |
WRITE_CHECKPOINT_NOW |
WRITE(fn,'(A,I10.10)') 'pickup_ph.',myIter |
|
./model/src/checkpoint.F |
572 |
WRITE_CHECKPOINT_NOW |
WRITE(fn,'(A,A)') 'pickup_ph.',checkPtSuff(nCheckLev) |
|
./model/src/checkpoint.F |
574 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,totPhiHyd, |
|
./model/src/checkpoint.F |
580 |
WRITE_CHECKPOINT_NOW |
WRITE(fn,'(A,I10.10)') 'pickup_nh.',myIter |
|
./model/src/checkpoint.F |
582 |
WRITE_CHECKPOINT_NOW |
WRITE(fn,'(A,A)') 'pickup_nh.',checkPtSuff(nCheckLev) |
|
./model/src/checkpoint.F |
584 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,phi_nh, 1, |
|
./model/src/checkpoint.F |
586 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gW, 2, |
|
./model/src/checkpoint.F |
601 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_SET_UDIM(fn, -1, myThid) |
|
./model/src/checkpoint.F |
602 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
|
./model/src/checkpoint.F |
603 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
|
./model/src/checkpoint.F |
604 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./model/src/checkpoint.F |
605 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'U', uVel, myThid) |
|
./model/src/checkpoint.F |
606 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'V', vVel, myThid) |
|
./model/src/checkpoint.F |
607 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'Temp', theta, myThid) |
|
./model/src/checkpoint.F |
608 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'S', salt, myThid) |
|
./model/src/checkpoint.F |
609 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'Eta', etaN, myThid) |
|
./model/src/checkpoint.F |
611 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'gUnm1', guNm1, myThid) |
|
./model/src/checkpoint.F |
612 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'gVnm1', gvNm1, myThid) |
|
./model/src/checkpoint.F |
613 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'gTnm1', gtNm1, myThid) |
|
./model/src/checkpoint.F |
614 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'gSnm1', gsNm1, myThid) |
|
./model/src/checkpoint.F |
617 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'dEtaHdt', dEtaHdt, myThid) |
|
./model/src/checkpoint.F |
618 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'EtaH', etaHnm1, myThid) |
|
./model/src/checkpoint.F |
622 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'phi_nh', phi_nh, myThid) |
|
./model/src/checkpoint.F |
623 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'gW', gW, myThid) |
|
./model/src/checkpoint.F |
627 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'phiHyd', totPhiHyd, myThid) |
|
./model/src/checkpoint.F |
634 |
WRITE_CHECKPOINT_NOW |
WRITE(fn,'(I10.10)') myIter |
|
./model/src/checkpoint.F |
636 |
WRITE_CHECKPOINT_NOW |
WRITE(fn,'(A)') checkPtSuff(nCheckLev) |
|
./model/src/checkpoint.F |
650 |
WRITE_CHECKPOINT_NOW |
& "%CHECKPOINT ",myIter,fn |
|
./model/src/checkpoint.F |
82 |
READ_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./model/src/checkpoint.F |
87 |
READ_CHECKPOINT |
fn(i:i) = ' ' |
|
./model/src/checkpoint.F |
94 |
READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup.',suff |
|
./pkg/offline/offline_fields_load.F |
177 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
179 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uvel0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
180 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
182 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uvel1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
189 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
191 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vvel0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
192 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
194 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vvel1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
201 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
203 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,wvel0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
204 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
206 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,wvel1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
213 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
215 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,tave0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
216 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
218 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,tave1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
225 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
227 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,save0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
228 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
230 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,save1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
237 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
239 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,conv0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
240 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
242 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,conv1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
250 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
252 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmkx0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
253 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
255 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmkx1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
262 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
264 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmky0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
265 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
267 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmky1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
274 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
276 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmkz0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
277 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
279 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmkz1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
286 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
288 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',1,hflx0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
289 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
291 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',1,hflx1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
298 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
300 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',1,sflx0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
301 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
303 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',1,sflx1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
51 |
OFFLINE_FIELDS_LOAD |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/seaice/seaice_pickup.F |
104 |
SEAICE_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/seaice/seaice_pickup.F |
109 |
SEAICE_WRITE_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_seaice.',myIt |
|
./pkg/seaice/seaice_pickup.F |
111 |
SEAICE_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_seaice.',checkPtSuff(nCheckLev) |
|
./pkg/seaice/seaice_pickup.F |
115 |
SEAICE_WRITE_PICKUP |
& (fn,prec,lgf,'RL', MULTDIM, TICES,1, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
116 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, YNEG, 8, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
117 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, HSNOW, 9, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
118 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, UICE, 4, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
119 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, VICE, 5, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
120 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, HEFF, 6, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
121 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, AREA, 7, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
123 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, TICE, 1, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
124 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, YNEG, 2, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
125 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, HSNOW, 3, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
126 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, UICE, 2, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
127 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, VICE, 3, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
128 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, HEFF, 4, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
129 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, AREA, 5, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
33 |
SEAICE_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/seaice/seaice_pickup.F |
40 |
SEAICE_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_seaice.',nIter0 |
|
./pkg/seaice/seaice_pickup.F |
43 |
SEAICE_READ_PICKUP |
& ( fn, precFloat64, 'RL', MULTDIM, TICES, 1, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
44 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, YNEG , 8, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
45 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, HSNOW, 9, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
46 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, UICE , 4, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
47 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, VICE , 5, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
48 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, HEFF , 6, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
49 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, AREA , 7, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
51 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, TICE , 1, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
52 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, YNEG , 2, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
53 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, HSNOW, 3, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
54 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, UICE , 2, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
55 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, VICE , 3, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
56 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, HEFF , 4, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
57 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, AREA , 5, myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
32 |
ATM_CPL_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
34 |
ATM_CPL_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
38 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,SSTocn , 1,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
39 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,HeatFlux , 2,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
40 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,tauX , 3,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
41 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,tauY , 4,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
42 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,EvMPrFlux , 5,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
43 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,RunOffFlux, 6,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
51 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1, ocMxlD , 1,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
52 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1, SSTocn , 2,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
53 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1, SSSocn , 3,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
54 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1, vSqocn , 4,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
56 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,atmSLPr , 5,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
57 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,HeatFlux , 6,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
58 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,qShortWave, 7,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
59 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,tauX , 8,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
60 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,tauY , 9,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
61 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,EvMPrFlux ,10,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
62 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,RunOffFlux,11,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
63 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,RunOffEnFx,12,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
64 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,iceSaltFlx,13,myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
65 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,seaIceMass,14,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
37 |
CPL_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
40 |
CPL_WRITE_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
42 |
CPL_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_cpl.',checkPtSuff(nCheckLev) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
57 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,ocMxlD , 1,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
58 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSTocn , 2,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
59 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSSocn , 3,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
60 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,vSqocn , 4,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
62 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,atmSLPr , 5,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
63 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,HeatFlux , 6,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
64 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qShortWave, 7,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
70 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauX , 8,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
71 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauY , 9,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
72 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,EvMPrFlux ,10,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
73 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,RunOffFlux,11,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
74 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,RunOffEnFx,12,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
75 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceSaltFlx,13,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
76 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,seaIceMass,14,myIter,myThid) |