Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_smag.F90
- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_smag.F90
r9583 r12555 99 99 IF(lwp) WRITE(numout,*) 100 100 IF(lwp) WRITE(numout,*) 101 IF(lwp .AND. lflush) CALL flush(numout) 101 102 ENDIF 102 103 … … 108 109 ahtt(:,:,:) = rn_aht_0 109 110 IF( ln_traldf_bilap ) THEN 110 IF( lwp .AND. kt == nit000) WRITE(numout,* )'ldf_tra_smag :no bilaplacian Smagorinsky diffusivity' 111 IF( lwp .AND. kt == nit000) WRITE(numout,* )'ldf_tra_smag :bilaplacian diffusivity set to constant' 111 IF( lwp .AND. kt == nit000) THEN 112 WRITE(numout,* )'ldf_tra_smag :no bilaplacian Smagorinsky diffusivity' 113 WRITE(numout,* )'ldf_tra_smag :bilaplacian diffusivity set to constant' 114 IF(lflush) CALL flush(numout) 115 ENDIF 112 116 ENDIF 113 117 … … 190 194 CALL prihre( ahtw(:,:,1), jpi, jpj, 1, jpi, 1, & 191 195 & 1, jpj, 1, 1.e-1, numout ) 196 IF(lflush) CALL flush(numout) 192 197 ENDIF 193 198 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.