Changeset 4015 for branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/oce.F90

Timestamp:

2013-09-09T12:13:17+02:00 (11 years ago)

Author:

cetlod

Message:

2013/dev_r3940_CNRS4_IOCRS: 1st step, add new routines for outputs coarsening

File:

• branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/oce.F90 (modified) (2 diffs)

branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/oce.F90

@@ -47 +47 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   gru , grv    !: horizontal gradient of rd at bottom u-point
 
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   rke          !: kinetic energy
+
    !! arrays relating to embedding ice in the ocean. These arrays need to be declared 
    !! even if no ice model is required. In the no ice model or traditional levitating 
@@ -79 +81 @@
       ALLOCATE( rhd (jpi,jpj,jpk) ,                                         &
          &      rhop(jpi,jpj,jpk) ,                                         &
+         &      rke (jpi,jpj,jpk) ,                                         &
          &      sshb  (jpi,jpj)   , sshn  (jpi,jpj) , ssha  (jpi,jpj) ,     &
          &      sshu_b(jpi,jpj)   , sshu_n(jpi,jpj) , sshu_a(jpi,jpj) ,     &