Changeset 12183
- Timestamp:
- 2019-12-11T14:00:24+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcblk.F90
r12179 r12183 417 417 END SELECT 418 418 IF(ztmp < 0._wp) THEN 419 WRITE(numout,'(" Mean humidity value found on proc #",i5.5," is: ",f)'),narea, ztmp419 IF (lwp) WRITE(numout,'(" Mean humidity value found on proc #",i5.5," is: ",f)') narea, ztmp 420 420 CALL ctl_stop( 'STOP', 'Something is wrong with air humidity!!!', & 421 421 & ' ==> check the unit in your input files' , & … … 779 779 DO jj = 1, jpj 780 780 DO ji = 1, jpi 781 zqla(ji,jj) = L_vap( ptsk(ji,jj) ) * pevp(ji,jj) * -1._wp! Latent Heat flux !!GS: possibility to add a global qla to avoid recomputation after abl update781 zqla(ji,jj) = - L_vap( ptsk(ji,jj) ) * pevp(ji,jj) ! Latent Heat flux !!GS: possibility to add a global qla to avoid recomputation after abl update 782 782 ENDDO 783 783 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.