Changeset 7590 for branches/UKMO/CO6_KD490_amm7_oper/NEMOGCM/NEMO/OPA_SRC/DIA/diatmb.F90

Timestamp:

2017-01-20T16:51:19+01:00 (7 years ago)

Author:

kingr

Message:

Added diagnostics from operational version: Kara ML, diaopfoam, diurnal.

File:

• branches/UKMO/CO6_KD490_amm7_oper/NEMOGCM/NEMO/OPA_SRC/DIA/diatmb.F90 (modified) (2 diffs)

branches/UKMO/CO6_KD490_amm7_oper/NEMOGCM/NEMO/OPA_SRC/DIA/diatmb.F90

@@ -19 +19 @@
    PUBLIC   dia_tmb_init            ! routine called by nemogcm.F90
    PUBLIC   dia_tmb                 ! routine called by diawri.F90
+   PUBLIC   dia_calctmb             ! routine called by dia25h.F90
 
    !!----------------------------------------------------------------------
@@ -108 +109 @@
       DO jj = 1,jpj
          DO ji = 1,jpi
-            jk              = max(1,mbathy(ji,jj) - 1)
+            jk              = max(1,mbathy(ji,jj))
             pouttmb(ji,jj,3) = pinfield(ji,jj,jk)*tmask(ji,jj,jk)  + zmdi*(1.0-tmask(ji,jj,jk))
          END DO