/[MITgcm]/MITgcm/pkg/thsice/thsice_output.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_output.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by edhill, Fri Jun 24 04:36:54 2005 UTC revision 1.5 by jmc, Thu Aug 11 21:08:17 2005 UTC
# Line 47  C     == Local variables == Line 47  C     == Local variables ==
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
# Line 237  C        find wether we are writing glob Line 237  C        find wether we are writing glob
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
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22