Changeset 15329 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA

Timestamp:

2021-10-05T13:39:45+02:00 (3 years ago)

Author:

hadjt

Message:

Added PEA functionality.
Maybe check for speed

Location:

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA

Files:

• diapea.F90 (added)
• diawri.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA/diawri.F90

@@ -47 +47 @@
    USE in_out_manager ! I/O manager
    USE dia25h         ! 25h Mean output
+   !JT
+   USE diapea         ! pea
+   !JT
    USE iom            ! 
    USE ioipsl         ! 
@@ -418 +421 @@
       IF (ln_dia25h)   CALL dia_25h( kt )             ! 25h averaging
 
+      !JT
+      if ( ln_pea ) THEN
+         CALL dia_pea( kt )
+      ENDIF
+      !JT
+
       IF( ln_timing )   CALL timing_stop('dia_wri')
       !