Changeset 4708 for branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

Timestamp:

2014-07-10T17:17:46+02:00 (10 years ago)

Author:

rfurner

Message:

changes to remove tracer modules and produce barotropic model

File:

• branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90 (modified) (3 diffs)

branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

@@ -203 +203 @@
       INTEGER  :: ji, jj, jk
       REAL(wp) ::   zsal = 35.50
+#if defined key_surge
+      REAL(wp) ::   ztem = 10.0
+#endif
       !!----------------------------------------------------------------------
       !
@@ -209 +212 @@
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~   and constant salinity (',zsal,' psu)'
       !
+#if defined key_surge
+      tsn(:,:,:,jp_tem) = ztem * tmask(:,:,:)
+      tsb(:,:,:,jp_tem) = tsn(:,:,:,jp_tem)
+#else
       DO jk = 1, jpk
          tsn(:,:,jk,jp_tem) = (  ( ( 7.5 - 0. * ABS( gphit(:,:) )/30. ) * ( 1.-TANH((fsdept(:,:,jk)-80.)/30.) )   &
@@ -214 +221 @@
          tsb(:,:,jk,jp_tem) = tsn(:,:,jk,jp_tem)
       END DO
+#endif
       tsn(:,:,:,jp_sal) = zsal * tmask(:,:,:)
       tsb(:,:,:,jp_sal) = tsn(:,:,:,jp_sal)