- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90
r9583 r11101 106 106 107 107 108 IF(lwp) WRITE(numout,*) 109 IF(lwp) WRITE(numout,*) 'ldf_dyn_smag : 3D lateral eddy viscosity coefficient' 110 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 111 108 IF(lwp) THEN 109 WRITE(numout,*) 110 WRITE(numout,*) 'ldf_dyn_smag : 3D lateral eddy viscosity coefficient' 111 WRITE(numout,*) '~~~~~~~~~~~' 112 IF(lflush) CALL flush(numout) 113 ENDIF 114 112 115 ENDIF 113 116 … … 172 175 173 176 ENDDO ! jpk 174 ahm1(:,:,jpk) = ahm1(:,:,jpkm1) 175 ahm2(:,:,jpk) = ahm2(:,:,jpkm1) 176 IF(lwp.and.kt==nit000) WRITE(numout,'(36x," ahm ", 7x)') 177 178 ahm1(:,:,jpk) = ahm1(:,:,jpkm1) 179 ahm2(:,:,jpk) = ahm2(:,:,jpkm1) 180 181 IF(lwp.and.kt==nit000) THEN 182 WRITE(numout,'(36x," ahm ", 7x)') 183 IF(lflush) CALL flush(numout) 184 ENDIF 185 186 IF(lwp.and.kt==nit000) THEN 177 187 DO jk = 1, jpk 178 179 IF(lwp.and.kt==nit000) WRITE(numout,'(30x,E10.2,8x,i3)') ahm1(jpi/2,jpj/2,jk), jk 188 WRITE(numout,'(30x,E10.2,8x,i3)') ahm1(jpi/2,jpj/2,jk), jk 180 189 END DO 190 IF(lflush) CALL flush(numout) 191 ENDIF 192 181 193 CALL lbc_lnk( ahm1, 'T', 1. ) ! Lateral boundary conditions on ( ahtt ) 182 194 CALL lbc_lnk( ahm2, 'F', 1. ) ! Lateral boundary conditions on ( ahtt ) … … 245 257 ahm4(:,:,jpk) = ahm4(:,:,jpkm1) 246 258 247 DO jk = 1, jpk 248 IF( kt == nit000 ) THEN 249 250 IF(lwp) WRITE(numout,'(30x,E10.2,8x,i3)') ahm3(jpi/2,jpj/2,jk), jk 259 IF( kt == nit000 .AND. lwp) THEN 260 DO jk = 1, jpk 261 WRITE(numout,'(30x,E10.2,8x,i3)') ahm3(jpi/2,jpj/2,jk), jk 262 IF(lflush) CALL flush(numout) 263 END DO 251 264 ENDIF 252 END DO 265 253 266 CALL lbc_lnk( ahm3, 'U', 1. ) ! Lateral boundary conditions 254 267 CALL lbc_lnk( ahm4, 'V', 1. ) … … 269 282 IF( lk_mpp ) CALL mpp_max( zdeltat ) ! max over the global domain 270 283 ! 271 IF( MOD( kt, nwrite ) == 1 .AND. lwp ) WRITE(numout,*) ' ==>> time-step= ',kt,'dynlap: abs(ahm) max: ', zdeltat 284 IF( MOD( kt, nwrite ) == 1 .AND. lwp ) THEN 285 WRITE(numout,*) ' ==>> time-step= ',kt,'dynlap: abs(ahm) max: ', zdeltat 286 IF(lflush) CALL flush(numout) 287 ENDIF 272 288 ENDIF 273 289 If(ln_dynldf_bilap)THEN … … 282 298 IF( lk_mpp ) CALL mpp_max( zdeltat ) ! max over the global domain 283 299 ! 284 IF( MOD( kt, nwrite ) == 1 .AND. lwp ) WRITE(numout,*) ' ==>> time-step= ',kt,'dyn_bilap abs(ahm) max: ', zdeltat 300 IF( MOD( kt, nwrite ) == 1 .AND. lwp ) THEN 301 WRITE(numout,*) ' ==>> time-step= ',kt,'dyn_bilap abs(ahm) max: ', zdeltat 302 IF(lflush) CALL flush(numout) 303 ENDIF 285 304 ! 286 305 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.