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 8589 – NEMO

Changeset 8589


Ignore:
Timestamp:
2017-10-04T15:55:43+02:00 (6 years ago)
Author:
clem
Message:

make Lupkes2015 reproducible

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk.F90

    r8587 r8589  
    10931093      zqi_sat(:,:) = 0.98_wp * q_sat( tm_su(:,:), sf(jp_slp)%fnow(:,:,1) )  ! saturation humidity over ice   [kg/kg] 
    10941094      ! 
    1095 !!      DO jj = 2, jpjm1 
    1096 !!         DO ji = fs_2, fs_jpim1 
    1097       DO jj = 1, jpj 
    1098          DO ji = 1, jpi 
     1095      DO jj = 2, jpjm1           ! reduced loop is necessary for reproducibility 
     1096         DO ji = fs_2, fs_jpim1 
    10991097            ! Virtual potential temperature [K] 
    11001098            zthetav_os = zst(ji,jj)   * ( 1._wp + rctv0 * zqo_sat(ji,jj) )   ! over ocean 
     
    11401138         END DO 
    11411139      END DO 
    1142 !!      CALL lbc_lnk_multi( Cd, 'T',  1., Ch, 'T', 1. ) 
     1140      CALL lbc_lnk_multi( Cd, 'T',  1., Ch, 'T', 1. ) 
    11431141      ! 
    11441142   END SUBROUTINE Cdn10_Lupkes2015 
Note: See TracChangeset for help on using the changeset viewer.