133 |
Cml WRITE(msgBuf,'(I10.10)') npiter |
Cml WRITE(msgBuf,'(I10.10)') npiter |
134 |
Cml CALL WRITE_FLD_XYZ_RL( 'POLD.',msgBuf,pold,npiter,myThid) |
Cml CALL WRITE_FLD_XYZ_RL( 'POLD.',msgBuf,pold,npiter,myThid) |
135 |
Cml CALL WRITE_FLD_XYZ_RL( 'PINI.',msgBuf,pressure,npiter,myThid) |
Cml CALL WRITE_FLD_XYZ_RL( 'PINI.',msgBuf,pressure,npiter,myThid) |
136 |
_GLOBAL_SUM_R8( rmspp, myThid ) |
_GLOBAL_SUM_RL( rmspp, myThid ) |
137 |
_GLOBAL_SUM_R8( count, myThid ) |
_GLOBAL_SUM_RL( count, myThid ) |
138 |
IF ( count .EQ. 0. ) THEN |
IF ( count .EQ. 0. ) THEN |
139 |
rmspp = 0. _d 0 |
rmspp = 0. _d 0 |
140 |
ELSE |
ELSE |