- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/C1D/dyndmp.F90
r12377 r13899 121 121 !Read in mask from file 122 122 CALL iom_open ( cn_resto, imask) 123 CALL iom_get ( imask, jpdom_auto glo, 'resto', resto)123 CALL iom_get ( imask, jpdom_auto, 'resto', resto) 124 124 CALL iom_close( imask ) 125 125 ENDIF … … 165 165 ! 166 166 CASE( 0 ) ! Newtonian damping throughout the water column 167 DO_3D _00_00(1, jpkm1 )167 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 168 168 zua = resto_uv(ji,jj,jk) * ( zuv_dta(ji,jj,jk,1) - puu(ji,jj,jk,Kbb) ) 169 169 zva = resto_uv(ji,jj,jk) * ( zuv_dta(ji,jj,jk,2) - pvv(ji,jj,jk,Kbb) ) … … 175 175 ! 176 176 CASE ( 1 ) ! no damping above the turbocline (avt > 5 cm2/s) 177 DO_3D _00_00(1, jpkm1 )177 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 178 178 IF( avt(ji,jj,jk) <= avt_c ) THEN 179 179 zua = resto_uv(ji,jj,jk) * ( zuv_dta(ji,jj,jk,1) - puu(ji,jj,jk,Kbb) ) … … 190 190 ! 191 191 CASE ( 2 ) ! no damping in the mixed layer 192 DO_3D _00_00(1, jpkm1 )192 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 193 193 IF( gdept(ji,jj,jk,Kmm) >= hmlp (ji,jj) ) THEN 194 194 zua = resto_uv(ji,jj,jk) * ( zuv_dta(ji,jj,jk,1) - puu(ji,jj,jk,Kbb) )
Note: See TracChangeset
for help on using the changeset viewer.