Changeset 9120 for branches/UKMO/dev_r8814_surge_modelling_Nemo4/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2017-12-18T18:29:02+01:00 (6 years ago)

Author:

clne

Message:

Initial work on 2D surge configuration. Works for tide-only, no SBC yet

File:

• branches/UKMO/dev_r8814_surge_modelling_Nemo4/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (2 diffs)

branches/UKMO/dev_r8814_surge_modelling_Nemo4/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -286 +286 @@
          &             nn_stock, nn_write , ln_mskland  , ln_clobber   , nn_chunksz, nn_euler  ,     &
          &             ln_cfmeta, ln_iscpl
-      NAMELIST/namdom/ ln_linssh, nn_closea, nn_msh, rn_isfhmin, rn_rdt, rn_atfp, ln_crs
+      NAMELIST/namdom/ ln_linssh, nn_closea, nn_msh, rn_isfhmin, rn_rdt, rn_atfp, ln_crs, ln_2d
 #if defined key_netcdf4
       NAMELIST/namnc4/ nn_nchunks_i, nn_nchunks_j, nn_nchunks_k, ln_nc4zip
@@ -405 +405 @@
          WRITE(numout,*) '      asselin time filter parameter         rn_atfp    = ', rn_atfp
          WRITE(numout,*) '      online coarsening of dynamical fields ln_crs     = ', ln_crs
-      ENDIF
+         WRITE(numout,*) '      2D mode                               ln_2d      = ', ln_2d
+         IF(ln_2d) WRITE(numout,*) '   2D mode active: All tracer processes and vertical diffusion turned off'
+
+      ENDIF
+
+        
       
       call flush( numout )