/[MITgcm]/MITgcm/pkg/gmredi/gmredi_output.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_output.F

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

revision 1.4 by edhill, Fri Jul 29 18:24:35 2005 UTC revision 1.5 by edhill, Thu Sep 29 12:19:52 2005 UTC
# Line 45  C     == Local variables == Line 45  C     == Local variables ==
45        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
46        INTEGER bi, bj, K        INTEGER bi, bj, K
47        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
48          CHARACTER*(1) pf
49    
50          IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
51            pf(1:1) = 'D'
52          ELSE
53            pf(1:1) = 'R'
54          ENDIF
55    
56  #if ( defined (GM_NON_UNITY_DIAGONAL) || defined (GM_EXTRA_DIAGONAL) )  #if ( defined (GM_NON_UNITY_DIAGONAL) || defined (GM_EXTRA_DIAGONAL) )
57    
# Line 73  C     == Local variables == Line 79  C     == Local variables ==
79            CALL MNC_CW_SET_UDIM('gm_inst', 0, myThid)            CALL MNC_CW_SET_UDIM('gm_inst', 0, myThid)
80            CALL MNC_CW_I_W_S('I','gm_inst',0,0,'iter',myIter,myThid)            CALL MNC_CW_I_W_S('I','gm_inst',0,0,'iter',myIter,myThid)
81  #ifdef GM_NON_UNITY_DIAGONAL  #ifdef GM_NON_UNITY_DIAGONAL
82            CALL MNC_CW_RL_W('D','gm_inst',0,0,'Kux',Kux,myThid)            CALL MNC_CW_RL_W(pf,'gm_inst',0,0,'Kux',Kux,myThid)
83            CALL MNC_CW_RL_W('D','gm_inst',0,0,'Kvy',Kvy,myThid)            CALL MNC_CW_RL_W(pf,'gm_inst',0,0,'Kvy',Kvy,myThid)
84  #endif  #endif
85  #ifdef GM_EXTRA_DIAGONAL  #ifdef GM_EXTRA_DIAGONAL
86            IF (GM_ExtraDiag) THEN            IF (GM_ExtraDiag) THEN
87              CALL MNC_CW_RL_W('D','gm_inst',0,0,'Kuz',Kuz,myThid)              CALL MNC_CW_RL_W(pf,'gm_inst',0,0,'Kuz',Kuz,myThid)
88              CALL MNC_CW_RL_W('D','gm_inst',0,0,'Kvz',Kvz,myThid)              CALL MNC_CW_RL_W(pf,'gm_inst',0,0,'Kvz',Kvz,myThid)
89            ENDIF            ENDIF
90  #endif  #endif
91          ENDIF          ENDIF
# Line 147  C      Normalize by integrated time Line 153  C      Normalize by integrated time
153           CALL MNC_CW_RL_W_S('D','gm_tave',0,0,'T',myTime,myThid)           CALL MNC_CW_RL_W_S('D','gm_tave',0,0,'T',myTime,myThid)
154           CALL MNC_CW_SET_UDIM('gm_tave', 0, myThid)           CALL MNC_CW_SET_UDIM('gm_tave', 0, myThid)
155           CALL MNC_CW_I_W_S('I','gm_tave',0,0,'iter',myIter,myThid)           CALL MNC_CW_I_W_S('I','gm_tave',0,0,'iter',myIter,myThid)
156           CALL MNC_CW_RL_W('D','gm_tave',0,0,'Kwx',GM_Kwx_T,myThid)           CALL MNC_CW_RL_W(pf,'gm_tave',0,0,'Kwx',GM_Kwx_T,myThid)
157           CALL MNC_CW_RL_W('D','gm_tave',0,0,'Kwy',GM_Kwy_T,myThid)           CALL MNC_CW_RL_W(pf,'gm_tave',0,0,'Kwy',GM_Kwy_T,myThid)
158           CALL MNC_CW_RL_W('D','gm_tave',0,0,'Kwz',GM_Kwz_T,myThid)           CALL MNC_CW_RL_W(pf,'gm_tave',0,0,'Kwz',GM_Kwz_T,myThid)
159  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
160           IF (GM_Visbeck_alpha.NE.0.) THEN           IF (GM_Visbeck_alpha.NE.0.) THEN
161             CALL MNC_CW_RL_W('D','gm_tave',0,0,'VisbK',             CALL MNC_CW_RL_W(pf,'gm_tave',0,0,'VisbK',
162       &          Visbeck_K_T, myThid)       &          Visbeck_K_T, myThid)
163           ENDIF           ENDIF
164  #endif  #endif
165  #ifdef GM_BOLUS_ADVEC  #ifdef GM_BOLUS_ADVEC
166           IF (GM_AdvForm) THEN           IF (GM_AdvForm) THEN
167             CALL MNC_CW_RL_W(             CALL MNC_CW_RL_W(
168       &          'D','gm_tave',0,0,'PsiX', GM_PsiXtave, myThid)       &          pf,'gm_tave',0,0,'PsiX', GM_PsiXtave, myThid)
169             CALL MNC_CW_RL_W(             CALL MNC_CW_RL_W(
170       &          'D','gm_tave',0,0,'PsiY', GM_PsiYtave, myThid)       &          pf,'gm_tave',0,0,'PsiY', GM_PsiYtave, myThid)
171           ENDIF           ENDIF
172  #endif  #endif
173         ENDIF         ENDIF
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22