Changeset 10958 for branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2019-05-10T14:26:15+02:00 (5 years ago)

Author:

rrenshaw

Message:

added regional mean code to 3.6 branch for AMM7/15 suite

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (2 diffs)

branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -47 +47 @@
    USE dia25h          ! 25h Mean output
    USE diaopfoam       ! Diaopfoam output
+   USE diaregmean      ! regionalmean
+   USE diapea          ! pea
    USE iom
    USE ioipsl
@@ -405 +407 @@
       IF (ln_diaopfoam) THEN
          CALL dia_diaopfoam
+      ENDIF
+      if ( ln_pea ) THEN
+         CALL dia_pea( kt )
+      ENDIF
+      IF (ln_diaregmean) THEN
+         CALL dia_regmean( kt )
       ENDIF
       !