Changeset 8589
- Timestamp:
- 2017-10-04T15:55:43+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk.F90
r8587 r8589 1093 1093 zqi_sat(:,:) = 0.98_wp * q_sat( tm_su(:,:), sf(jp_slp)%fnow(:,:,1) ) ! saturation humidity over ice [kg/kg] 1094 1094 ! 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 1099 1097 ! Virtual potential temperature [K] 1100 1098 zthetav_os = zst(ji,jj) * ( 1._wp + rctv0 * zqo_sat(ji,jj) ) ! over ocean … … 1140 1138 END DO 1141 1139 END DO 1142 !!CALL lbc_lnk_multi( Cd, 'T', 1., Ch, 'T', 1. )1140 CALL lbc_lnk_multi( Cd, 'T', 1., Ch, 'T', 1. ) 1143 1141 ! 1144 1142 END SUBROUTINE Cdn10_Lupkes2015
Note: See TracChangeset
for help on using the changeset viewer.