287 |
CALL WRITE_0D_RL( salt_EvPrRn, INDEX_NONE, |
CALL WRITE_0D_RL( salt_EvPrRn, INDEX_NONE, |
288 |
&'salt_EvPrRn =', |
&'salt_EvPrRn =', |
289 |
&' /* Salin. of Evap/Prec/R (UNSET=use local S)(ppt)*/') |
&' /* Salin. of Evap/Prec/R (UNSET=use local S)(ppt)*/') |
290 |
|
CALL WRITE_0D_RL( temp_addMass, INDEX_NONE, |
291 |
|
&'temp_addMass =', |
292 |
|
&' /* Temp. of addMass array (UNSET=use local T)(oC)*/') |
293 |
|
CALL WRITE_0D_RL( salt_addMass, INDEX_NONE, |
294 |
|
&'salt_addMass =', |
295 |
|
&' /* Salin. of addMass array (UNSET=use local S)(ppt)*/') |
296 |
IF ( .NOT.useRealFreshWaterFlux .OR. selectAddFluid.EQ.-1 |
IF ( .NOT.useRealFreshWaterFlux .OR. selectAddFluid.EQ.-1 |
297 |
& .OR. nonlinFreeSurf.LE.0 ) THEN |
& .OR. nonlinFreeSurf.LE.0 ) THEN |
298 |
CALL WRITE_0D_RL( convertFW2Salt, INDEX_NONE, |
CALL WRITE_0D_RL( convertFW2Salt, INDEX_NONE, |