47 |
INTEGER bi, bj, kl |
INTEGER bi, bj, kl |
48 |
CHARACTER*(MAX_LEN_MBUF) suff, fn |
CHARACTER*(MAX_LEN_MBUF) suff, fn |
49 |
LOGICAL gf |
LOGICAL gf |
50 |
#ifdef ALLOW_TIMEAVE |
#ifdef ALLOW_MNC |
51 |
INTEGER i |
INTEGER i |
52 |
CHARACTER*(MAX_LEN_MBUF) mncf |
CHARACTER*(MAX_LEN_MBUF) mncf |
53 |
#endif |
#endif |
237 |
ENDDO |
ENDDO |
238 |
C C 123456789 1 |
C C 123456789 1 |
239 |
mncf(1:11) = 'thsice_tave' |
mncf(1:11) = 'thsice_tave' |
240 |
CALL MNC_CW_SET_UDIM(fn, -1, myThid) |
CALL MNC_CW_SET_UDIM(mncf, -1, myThid) |
241 |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
CALL MNC_CW_RL_W_S('D',mncf,0,0,'T', myTime, myThid) |
242 |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
CALL MNC_CW_SET_UDIM(mncf, 0, myThid) |
243 |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
CALL MNC_CW_I_W_S('I',mncf,0,0,'iter', myIter, myThid) |
244 |
CALL MNC_CW_RL_W('D',fn,0,0,'fract_ave', ice_fract_Ave, myThid) |
CALL MNC_CW_RL_W('D',mncf,0,0, |
245 |
CALL MNC_CW_RL_W('D',fn,0,0,'iceH_ave', ice_iceH_Ave, myThid) |
& 'fract_ave', ice_fract_Ave, myThid) |
246 |
CALL MNC_CW_RL_W('D',fn,0,0,'snowH_ave', ice_snowH_Ave, myThid) |
CALL MNC_CW_RL_W('D',mncf,0,0, |
247 |
CALL MNC_CW_RL_W('D',fn,0,0,'Tsrf_ave', ice_Tsrf_Ave, myThid) |
& 'iceH_ave', ice_iceH_Ave, myThid) |
248 |
CALL MNC_CW_RL_W('D',fn,0,0,'Tice1_ave', ice_Tice1_Ave, myThid) |
CALL MNC_CW_RL_W('D',mncf,0,0, |
249 |
CALL MNC_CW_RL_W('D',fn,0,0,'Tice2_ave', ice_Tice2_Ave, myThid) |
& 'snowH_ave', ice_snowH_Ave, myThid) |
250 |
CALL MNC_CW_RL_W('D',fn,0,0,'snowPr_ave',ice_snowPr_Ave,myThid) |
CALL MNC_CW_RL_W('D',mncf,0,0, |
251 |
CALL MNC_CW_RL_W('D',fn,0,0,'albedo_ave',ice_albedo_Ave,myThid) |
& 'Tsrf_ave', ice_Tsrf_Ave, myThid) |
252 |
CALL MNC_CW_RL_W('D',fn,0,0,'flx2oc_ave',ice_flx2oc_Ave,myThid) |
CALL MNC_CW_RL_W('D',mncf,0,0, |
253 |
CALL MNC_CW_RL_W('D',fn,0,0,'frw2oc_ave',ice_frw2oc_Ave,myThid) |
& 'Tice1_ave', ice_Tice1_Ave, myThid) |
254 |
|
CALL MNC_CW_RL_W('D',mncf,0,0, |
255 |
|
& 'Tice2_ave', ice_Tice2_Ave, myThid) |
256 |
|
CALL MNC_CW_RL_W('D',mncf,0,0, |
257 |
|
& 'snowPr_ave',ice_snowPr_Ave,myThid) |
258 |
|
CALL MNC_CW_RL_W('D',mncf,0,0, |
259 |
|
& 'albedo_ave',ice_albedo_Ave,myThid) |
260 |
|
CALL MNC_CW_RL_W('D',mncf,0,0, |
261 |
|
& 'flx2oc_ave',ice_flx2oc_Ave,myThid) |
262 |
|
CALL MNC_CW_RL_W('D',mncf,0,0, |
263 |
|
& 'frw2oc_ave',ice_frw2oc_Ave,myThid) |
264 |
IF ( fluidIsWater ) THEN |
IF ( fluidIsWater ) THEN |
265 |
CALL MNC_CW_RL_W('D',fn,0,0,'flxAtm_ave', |
CALL MNC_CW_RL_W('D',mncf,0,0, |
266 |
& ice_flxAtm_Ave,myThid) |
& 'flxAtm_ave',ice_flxAtm_Ave,myThid) |
267 |
CALL MNC_CW_RL_W('D',fn,0,0,'frwAtm_ave', |
CALL MNC_CW_RL_W('D',mncf,0,0, |
268 |
& ice_frwAtm_Ave,myThid) |
& 'frwAtm_ave',ice_frwAtm_Ave,myThid) |
269 |
ENDIF |
ENDIF |
270 |
IF ( stepFwd_oceMxL ) THEN |
IF ( stepFwd_oceMxL ) THEN |
271 |
CALL MNC_CW_RL_W('D',fn,0,0,'tMxL_ave',ice_tMxL_Ave,myThid) |
CALL MNC_CW_RL_W('D',mncf,0,0,'tMxL_ave',ice_tMxL_Ave,myThid) |
272 |
CALL MNC_CW_RL_W('D',fn,0,0,'sMxL_ave',ice_sMxL_Ave,myThid) |
CALL MNC_CW_RL_W('D',mncf,0,0,'sMxL_ave',ice_sMxL_Ave,myThid) |
273 |
ENDIF |
ENDIF |
274 |
ENDIF |
ENDIF |
275 |
#endif |
#endif |