10 |
C !INTERFACE: |
C !INTERFACE: |
11 |
SUBROUTINE DIAGSTATS_MNC_OUT( |
SUBROUTINE DIAGSTATS_MNC_OUT( |
12 |
I statGlob, nLev, ndId, |
I statGlob, nLev, ndId, |
13 |
I mId, listId, myIter, myTime, myThid ) |
I mId, listId, myTime, myIter, myThid ) |
14 |
|
|
15 |
C !DESCRIPTION: |
C !DESCRIPTION: |
16 |
C Write Global statistics to a netCDF file |
C Write Global statistics to a netCDF file |
42 |
C myTime :: current time of simulation (s) |
C myTime :: current time of simulation (s) |
43 |
C myThid :: my thread Id number |
C myThid :: my thread Id number |
44 |
INTEGER nLev |
INTEGER nLev |
45 |
_RL statGlob(0:nStats,0:nLev,0:nRegions) |
_RL statGlob(0:nStats,0:nLev,0:nRegions) |
46 |
|
_RL myTime |
47 |
INTEGER ndId, mId, listId |
INTEGER ndId, mId, listId |
48 |
INTEGER myIter, myTime, myThid |
INTEGER myIter, myThid |
49 |
CEOP |
CEOP |
50 |
|
|
51 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
104 |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |
105 |
CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',myTime,myThid) |
CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',myTime,myThid) |
106 |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid) |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid) |
107 |
|
CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',myIter,myThid) |
108 |
ENDIF |
ENDIF |
109 |
|
|
110 |
#ifdef DIAGST_MNC_NEEDSWORK |
#ifdef DIAGST_MNC_NEEDSWORK |
186 |
ENDDO |
ENDDO |
187 |
|
|
188 |
C Z is special since it varies |
C Z is special since it varies |
189 |
WRITE(dn(1),'(a,i6.6)') 'Zd', nlevels(listId) |
WRITE(dn(1),'(a,i6.6)') 'Zd', kdiag(ndId) |
190 |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
191 |
& .AND. (gdiag(ndId)(9:9) .EQ. 'M') ) THEN |
& .AND. (gdiag(ndId)(9:9) .EQ. 'M') ) THEN |
192 |
WRITE(dn(1),'(a,i6.6)') 'Zmd', nlevels(listId) |
WRITE(dn(1),'(a,i6.6)') 'Zmd', kdiag(ndId) |
193 |
ENDIF |
ENDIF |
194 |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
195 |
& .AND. (gdiag(ndId)(9:9) .EQ. 'L') ) THEN |
& .AND. (gdiag(ndId)(9:9) .EQ. 'L') ) THEN |
196 |
WRITE(dn(1),'(a,i6.6)') 'Zld', nlevels(listId) |
WRITE(dn(1),'(a,i6.6)') 'Zld', kdiag(ndId) |
197 |
ENDIF |
ENDIF |
198 |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
IF ( (gdiag(ndId)(10:10) .EQ. 'R') |
199 |
& .AND. (gdiag(ndId)(9:9) .EQ. 'U') ) THEN |
& .AND. (gdiag(ndId)(9:9) .EQ. 'U') ) THEN |
200 |
WRITE(dn(1),'(a,i6.6)') 'Zud', nlevels(listId) |
WRITE(dn(1),'(a,i6.6)') 'Zud', kdiag(ndId) |
201 |
ENDIF |
ENDIF |
202 |
dim(1) = Nr+Nrphys+1 |
dim(1) = Nr+Nrphys+1 |
203 |
ib(1) = 1 |
ib(1) = 1 |