Changeset 8885 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/SBC
- Timestamp:
- 2017-12-04T10:41:40+01:00 (6 years ago)
- Location:
- branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk.F90
r8884 r8885 111 111 LOGICAL :: ln_taudif ! logical flag to use the "mean of stress module - module of mean stress" data 112 112 REAL(wp) :: rn_pfac ! multiplication factor for precipitation 113 REAL(wp) :: rn_efac ! multiplication factor for evaporation (clem)114 REAL(wp) :: rn_vfac ! multiplication factor for ice/ocean velocity in the calculation of wind stress (clem)113 REAL(wp) :: rn_efac ! multiplication factor for evaporation 114 REAL(wp) :: rn_vfac ! multiplication factor for ice/ocean velocity in the calculation of wind stress 115 115 REAL(wp) :: rn_zqt ! z(q,t) : height of humidity and temperature measurements 116 116 REAL(wp) :: rn_zu ! z(u) : height of wind measurements -
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r8882 r8885 312 312 ! 313 313 #if defined key_lim3 314 IF( lk_agrif .AND. nn_ice == 0 ) THEN 315 IF( sbc_ice_alloc() /= 0 ) CALL ctl_stop('STOP', 'sbc_ice_alloc : unable to allocate arrays' ) ! clem2017: allocate ice arrays in case agrif + lim + no-ice in child grid314 IF( lk_agrif .AND. nn_ice == 0 ) THEN ! allocate ice arrays in case agrif + ice-model + no-ice in child grid 315 IF( sbc_ice_alloc() /= 0 ) CALL ctl_stop('STOP', 'sbc_ice_alloc : unable to allocate arrays' ) 316 316 ELSEIF( nn_ice == 2 ) THEN 317 CALL ice_init ! LIM3initialization317 CALL ice_init ! ICE initialization 318 318 ENDIF 319 319 #endif
Note: See TracChangeset
for help on using the changeset viewer.