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 |