Changeset 7590 for branches/UKMO/CO6_KD490_amm7_oper/NEMOGCM/NEMO/OPA_SRC/IOM

Timestamp:

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

Author:

kingr

Message:

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

Location:

branches/UKMO/CO6_KD490_amm7_oper/NEMOGCM/NEMO/OPA_SRC/IOM

Files:

• iom_def.F90 (modified) (1 diff)
• restart.F90 (modified) (3 diffs)

branches/UKMO/CO6_KD490_amm7_oper/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90

@@ -43 +43 @@
    INTEGER, PARAMETER, PUBLIC ::   jp_i1    = 204      !: write INTEGER(1)
 
-   INTEGER, PARAMETER, PUBLIC ::   jpmax_files  = 100   !: maximum number of simultaneously opened file
+   INTEGER, PARAMETER, PUBLIC ::   jpmax_files  = 200   !: maximum number of simultaneously opened file
    INTEGER, PARAMETER, PUBLIC ::   jpmax_vars   = 600  !: maximum number of variables in one file
    INTEGER, PARAMETER, PUBLIC ::   jpmax_dims   =  4   !: maximum number of dimensions for one variable

branches/UKMO/CO6_KD490_amm7_oper/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -25 +25 @@
    USE trdmxl_oce      ! ocean active mixed layer tracers trends variables
    USE divcur          ! hor. divergence and curl      (div & cur routines)
+   USE diurnal_bulk    ! diurnal SST
 
    IMPLICIT NONE
@@ -153 +154 @@
                      CALL iom_rstput( kt, nitrst, numrow, 'rhd'    , rhd       )
 #endif
+
+      IF (ln_diurnal) CALL iom_rstput( kt, nitrst, numrow, 'Dsst', x_dsst      )
+
       IF( kt == nitrst ) THEN
          CALL iom_close( numrow )     ! close the restart file (only at last time step)
@@ -265 +269 @@
       ENDIF
 #endif
+
+      ! Diurnal SST
+      IF( ln_diurnal ) CALL iom_get( numror, jpdom_autoglo, 'Dsst' , x_dsst  )  
+
       !
       IF( neuler == 0 ) THEN                                  ! Euler restart (neuler=0)