Changeset 8905 for branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM
- Timestamp:
- 2017-12-05T18:17:16+01:00 (7 years ago)
- Location:
- branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/icethd_zdf.F90
r8771 r8905 911 911 ! effective conductivity and 1st layer temperature (Jules coupling) 912 912 DO ji = 1, npti 913 cnd_ice_1d(ji) = 2._wp * ( isnow(ji) * zkappa_s(ji,0) + ( 1._wp - isnow(ji) ) * zkappa_i(ji,0) ) 913 IF (h_s_1d(ji) > 0.1 ) THEN 914 cnd_ice_1d(ji) = 2._wp * zkappa_s(ji,0) 915 ELSE 916 IF (h_i_1d(ji) > 0.1 ) THEN 917 cnd_ice_1d(ji) = 2._wp * zkappa_i(ji,0) 918 ELSE 919 cnd_ice_1d(ji) = 2._wp * ztcond_i(ji,0) / 0.1 920 ENDIF 921 ENDIF 914 922 t1_ice_1d (ji) = ( isnow(ji) * t_s_1d (ji,1) + ( 1._wp - isnow(ji) ) * t_i_1d (ji,1) ) 915 923 END DO -
branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r8847 r8905 260 260 ! 261 261 CALL wrk_alloc( jpi,jpj, zacs, zaos ) 262 263 IF (ln_meto_cpl) THEN 264 tsfc_ice(:,:,:) = 0.0 265 a_ip(:,:,:) = 0.0 266 v_ip(:,:,:) = 0.0 267 t1_ice(:,:,:) = rt0 268 cnd_ice(:,:,:) = 0.0 269 sstfrz(:,:) = 0.0 270 ENDIF 262 271 263 272 ! ================================ ! -
branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r8847 r8905 137 137 WRITE(numout,*) ' mixed forced-coupled formulation ln_mixcpl = ', ln_mixcpl 138 138 !!gm lk_oasis is controlled by key_oasis3 ===>>> It shoud be removed from the namelist 139 WRITE(numout,*) ' Met Office coupling formulation ln_mixcpl = ', ln_meto_cpl139 WRITE(numout,*) ' Met Office coupling formulation (sfc exchange in atmos) ln_meto_cpl = ', ln_meto_cpl 140 140 WRITE(numout,*) ' OASIS coupling (with atm or sas) lk_oasis = ', lk_oasis 141 141 WRITE(numout,*) ' components of your executable nn_components = ', nn_components
Note: See TracChangeset
for help on using the changeset viewer.