Changeset 9120 for branches/UKMO/dev_r8814_surge_modelling_Nemo4/NEMOGCM/NEMO/OPA_SRC/DOM/istate.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/istate.F90 (modified) (1 diff)

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

@@ -94 +94 @@
          !                                    ! Initialization of ocean to zero
          !
-         IF( ln_tsd_init ) THEN               
+         IF (ln_2d) THEN
+            tsn(:,:,:,:)= 0._wp                ! No tracers
+            sshb(:,:)   = 0._wp               ! set the ocean at rest
+            ub  (:,:,:) = 0._wp
+            vb  (:,:,:) = 0._wp          
+         ELSE IF( ln_tsd_init ) THEN  
             CALL dta_tsd( nit000, tsb )       ! read 3D T and S data at nit000
             !