Changeset 15329

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

Files:

• DIA/diapea.F90 (added)
• DIA/diawri.F90 (modified) (2 diffs)
• nemogcm.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')
       !

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/nemogcm.F90

@@ -73 +73 @@
    USE crsini         ! initialise grid coarsening utility
    USE dia25h         ! 25h mean output
+   !JT
+   USE diapea         ! pea
+   !JT
+
    USE sbc_oce , ONLY : lk_oasis
    USE wet_dry        ! Wetting and drying setting   (wad_init routine)
@@ -494 +498 @@
                            CALL dia_harm_init   ! tidal harmonics outputs
      IF( ln_diaobs    )    CALL dia_obs( nit000-1 )   ! Observation operator for restart
+                           !JT
+                           CALL dia_pea_init  ! Initialise PEA 
+                           !JT
+
 
       !                                      ! Assimilation increments