127 |
ENDIF |
ENDIF |
128 |
IF ( EmPmRfile .NE. ' ' ) THEN |
IF ( EmPmRfile .NE. ' ' ) THEN |
129 |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |
130 |
IF ( convertEmP2rUnit.EQ.mass2rUnit ) THEN |
c IF ( convertEmP2rUnit.EQ.mass2rUnit ) THEN |
131 |
C- EmPmR is now (after c59h) expressed in kg/m2/s (fresh water mass flux) |
C- EmPmR is now (after c59h) expressed in kg/m2/s (fresh water mass flux) |
132 |
_BARRIER |
_BARRIER |
133 |
DO bj = myByLo(myThid), myByHi(myThid) |
DO bj = myByLo(myThid), myByHi(myThid) |
139 |
ENDDO |
ENDDO |
140 |
ENDDO |
ENDDO |
141 |
ENDDO |
ENDDO |
142 |
ENDIF |
c ENDIF |
143 |
ENDIF |
ENDIF |
144 |
IF ( saltFluxFile .NE. ' ' ) THEN |
IF ( saltFluxFile .NE. ' ' ) THEN |
145 |
CALL READ_FLD_XY_RS( saltFluxFile, ' ', saltFlux, 0, myThid ) |
CALL READ_FLD_XY_RS( saltFluxFile, ' ', saltFlux, 0, myThid ) |