New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12183 – NEMO

Changeset 12183


Ignore:
Timestamp:
2019-12-11T14:00:24+01:00 (4 years ago)
Author:
mathiot
Message:

minor changes on sbcblk to compile with Cray

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcblk.F90

    r12179 r12183  
    417417            END SELECT 
    418418            IF(ztmp < 0._wp) THEN 
    419                WRITE(numout,'("   Mean humidity value found on proc #",i5.5," is: ",f)'), narea, ztmp 
     419               IF (lwp) WRITE(numout,'("   Mean humidity value found on proc #",i5.5," is: ",f)') narea, ztmp 
    420420               CALL ctl_stop( 'STOP', 'Something is wrong with air humidity!!!', & 
    421421                  &   ' ==> check the unit in your input files'       , & 
     
    779779      DO jj = 1, jpj 
    780780         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 update 
     781            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 
    782782         ENDDO 
    783783      ENDDO 
Note: See TracChangeset for help on using the changeset viewer.