Changeset 14118 for NEMO/trunk/src/OCE/ICB/icbutl.F90
- Timestamp:
- 2020-12-07T11:31:48+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ICB/icbutl.F90
r14030 r14118 57 57 PUBLIC icb_utl_heat ! routine called in icbdia module 58 58 59 !! * Substitutions 60 # include "domzgr_substitute.h90" 59 61 !!---------------------------------------------------------------------- 60 62 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 127 129 CALL lbc_lnk_icb( 'icbutl', ztmp, 'V', -1._wp, 1, 1 ) 128 130 voce_e(:,:,jk) = ztmp(:,:) 131 ! 132 e3t_e(1:jpi,1:jpj,jk) = e3t(:,:,jk,Kmm) 129 133 END DO 130 toce_e(1:jpi,1:jpj,1:jpk) = ts(:,:,:,1,Kmm) 131 e3t_e (1:jpi,1:jpj,1:jpk) = e3t(:,:,:,Kmm) 134 toce_e(1:jpi,1:jpj,:) = ts(:,:,:,1,Kmm) 132 135 END IF 133 136 !
Note: See TracChangeset
for help on using the changeset viewer.