Changeset 11180 for NEMO/branches/UKMO/NEMO_4.0_surge/src/OCE/DOM/dtatsd.F90

Timestamp:

2019-06-25T18:50:27+02:00 (5 years ago)

Author:

clne

Message:

Initial commit of code for 2d (surge) work in NEMO4.
This is aiming to replicate the 3.6 version in branches/UKMO/dev_r5518_Surge_Modelling

File:

• NEMO/branches/UKMO/NEMO_4.0_surge/src/OCE/DOM/dtatsd.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0_surge/src/OCE/DOM/dtatsd.F90

@@ -87 +87 @@
             WRITE(numout,*) '   ===>>   T & S data not used'
          ENDIF
+         IF( ln_2d ) WRITE(numout,*) '   2D ocean - ocean will be started at rest and T&S = arbitrary constants' 
       ENDIF
       !