/[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.3 by jmc, Sun May 15 03:04:56 2005 UTC revision 1.4 by edhill, Fri Jul 29 18:24:35 2005 UTC
# Line 51  C     == Local variables == Line 51  C     == Local variables ==
51    
52        IF ( DIFFERENT_MULTIPLE(diagFreq,myTime,deltaTClock)        IF ( DIFFERENT_MULTIPLE(diagFreq,myTime,deltaTClock)
53       &   ) THEN       &   ) THEN
54          WRITE(suff,'(I10.10)') myIter  
55            IF ( GM_MDSIO ) THEN
56              WRITE(suff,'(I10.10)') myIter
57  #ifdef GM_NON_UNITY_DIAGONAL  #ifdef GM_NON_UNITY_DIAGONAL
58          CALL WRITE_FLD_XYZ_RL( 'GM_Kux.',suff,Kux,myIter,myThid)            CALL WRITE_FLD_XYZ_RL( 'GM_Kux.',suff,Kux,myIter,myThid)
59          CALL WRITE_FLD_XYZ_RL( 'GM_Kvy.',suff,Kvy,myIter,myThid)            CALL WRITE_FLD_XYZ_RL( 'GM_Kvy.',suff,Kvy,myIter,myThid)
60  #endif  #endif
61  #ifdef GM_EXTRA_DIAGONAL  #ifdef GM_EXTRA_DIAGONAL
62         IF (GM_ExtraDiag) THEN            IF (GM_ExtraDiag) THEN
63          CALL WRITE_FLD_XYZ_RL( 'GM_Kuz.',suff,Kuz,myIter,myThid)              CALL WRITE_FLD_XYZ_RL( 'GM_Kuz.',suff,Kuz,myIter,myThid)
64          CALL WRITE_FLD_XYZ_RL( 'GM_Kvz.',suff,Kvz,myIter,myThid)              CALL WRITE_FLD_XYZ_RL( 'GM_Kvz.',suff,Kvz,myIter,myThid)
65         ENDIF            ENDIF
66    #endif
67            ENDIF
68    
69    #ifdef ALLOW_MNC
70            IF ( GM_MNC ) THEN
71              CALL MNC_CW_SET_UDIM('gm_inst', -1, myThid)
72              CALL MNC_CW_RL_W_S('D','gm_inst',0,0,'T',myTime,myThid)
73              CALL MNC_CW_SET_UDIM('gm_inst', 0, myThid)
74              CALL MNC_CW_I_W_S('I','gm_inst',0,0,'iter',myIter,myThid)
75    #ifdef GM_NON_UNITY_DIAGONAL
76              CALL MNC_CW_RL_W('D','gm_inst',0,0,'Kux',Kux,myThid)
77              CALL MNC_CW_RL_W('D','gm_inst',0,0,'Kvy',Kvy,myThid)
78    #endif
79    #ifdef GM_EXTRA_DIAGONAL
80              IF (GM_ExtraDiag) THEN
81                CALL MNC_CW_RL_W('D','gm_inst',0,0,'Kuz',Kuz,myThid)
82                CALL MNC_CW_RL_W('D','gm_inst',0,0,'Kvz',Kvz,myThid)
83              ENDIF
84    #endif
85            ENDIF
86  #endif  #endif
87    
88        ENDIF        ENDIF
89    
90  #endif /* GM_NON_UNITY_DIAGONAL || GM_EXTRA_DIAGONAL */  #endif /* GM_NON_UNITY_DIAGONAL || GM_EXTRA_DIAGONAL */
# Line 98  C      Normalize by integrated time Line 121  C      Normalize by integrated time
121          ENDDO          ENDDO
122         ENDDO         ENDDO
123                    
124         WRITE(suff,'(I10.10)') myIter         IF ( GM_MDSIO ) THEN
125             WRITE(suff,'(I10.10)') myIter
126         CALL WRITE_FLD_XYZ_RL('GM_Kwx-T.',suff,GM_Kwx_T,myIter,myThid)           CALL WRITE_FLD_XYZ_RL('GM_Kwx-T.',suff,GM_Kwx_T,myIter,myThid)
127         CALL WRITE_FLD_XYZ_RL('GM_Kwy-T.',suff,GM_Kwy_T,myIter,myThid)           CALL WRITE_FLD_XYZ_RL('GM_Kwy-T.',suff,GM_Kwy_T,myIter,myThid)
128         CALL WRITE_FLD_XYZ_RL('GM_Kwz-T.',suff,GM_Kwz_T,myIter,myThid)           CALL WRITE_FLD_XYZ_RL('GM_Kwz-T.',suff,GM_Kwz_T,myIter,myThid)
129    #ifdef GM_VISBECK_VARIABLE_K
130             IF (GM_Visbeck_alpha.NE.0.)
131         &        CALL WRITE_FLD_XY_RL('Visbeck_K-T.',suff,Visbeck_K_T,
132         &                             myIter,myThid)
133    #endif
134    #ifdef GM_BOLUS_ADVEC
135             IF (GM_AdvForm) THEN
136               CALL WRITE_FLD_XYZ_RL('GM_PsiXtave.',suff,GM_PsiXtave,
137         &                           myIter,myThid)
138               CALL WRITE_FLD_XYZ_RL('GM_PsiYtave.',suff,GM_PsiYtave,
139         &                           myIter,myThid)
140             ENDIF
141    #endif
142           ENDIF
143          
144    #ifdef ALLOW_MNC
145           IF ( GM_MNC ) THEN
146             CALL MNC_CW_SET_UDIM('gm_tave', -1, myThid)
147             CALL MNC_CW_RL_W_S('D','gm_tave',0,0,'T',myTime,myThid)
148             CALL MNC_CW_SET_UDIM('gm_tave', 0, myThid)
149             CALL MNC_CW_I_W_S('I','gm_tave',0,0,'iter',myIter,myThid)
150             CALL MNC_CW_RL_W('D','gm_tave',0,0,'Kwx',GM_Kwx_T,myThid)
151             CALL MNC_CW_RL_W('D','gm_tave',0,0,'Kwy',GM_Kwy_T,myThid)
152             CALL MNC_CW_RL_W('D','gm_tave',0,0,'Kwz',GM_Kwz_T,myThid)
153  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
154         IF (GM_Visbeck_alpha.NE.0.)           IF (GM_Visbeck_alpha.NE.0.) THEN
155       &  CALL WRITE_FLD_XY_RL('Visbeck_K-T.',suff,Visbeck_K_T,             CALL MNC_CW_RL_W('D','gm_tave',0,0,'VisbK',
156       &                        myIter,myThid)       &          Visbeck_K_T, myThid)
157             ENDIF
158  #endif  #endif
159  #ifdef GM_BOLUS_ADVEC  #ifdef GM_BOLUS_ADVEC
160         IF (GM_AdvForm) THEN           IF (GM_AdvForm) THEN
161          CALL WRITE_FLD_XYZ_RL('GM_PsiXtave.',suff,GM_PsiXtave,             CALL MNC_CW_RL_W(
162       &                        myIter,myThid)       &          'D','gm_tave',0,0,'PsiX', GM_PsiXtave, myThid)
163          CALL WRITE_FLD_XYZ_RL('GM_PsiYtave.',suff,GM_PsiYtave,             CALL MNC_CW_RL_W(
164       &                        myIter,myThid)       &          'D','gm_tave',0,0,'PsiY', GM_PsiYtave, myThid)
165             ENDIF
166    #endif
167         ENDIF         ENDIF
168  #endif  #endif
169                    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22