Changeset 4015 for branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R025.h90

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/par_ORCA_R025.h90 (modified) (1 diff)

branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R025.h90

@@ -9 +9 @@
    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-   CHARACTER (len=16)      &
-#if !defined key_agrif
-      , PARAMETER  &
-#endif
-      ::    &  
-      cp_cfg = "orca"           !: name of the configuration
-   INTEGER     &
-#if !defined key_agrif
-      , PARAMETER  &
-#endif
-      :: &
-      jp_cfg = 025  ,        &  !: resolution of the configuration (degrees)
+   CHARACTER (len=16) :: cp_cfg = "orca"  !: name of the configuration
+   INTEGER            :: jp_cfg = 025       !: resolution of the configuration (degrees)
+   INTEGER, PARAMETER ::     &
       ! Original data size
       jpidta  = 1442,        &  !: first horizontal dimension > or = to jpi
       jpjdta  = 1021,        &  !: second                     > or = to jpj
 #if key_orca_r025==75
-      jpkdta  = 75 ,         &  !: number of levels           > or = to jpk
+      jpkdta  = 75              !: number of levels           > or = to jpk
 #else
-      jpkdta  = 46 ,         &  !: number of levels           > or = to jpk
+      jpkdta  = 46              !: number of levels           > or = to jpk
 #endif
+   INTEGER  ::     &
       ! total domain matrix size
       jpiglo  = jpidta,      &  !: first  dimension of global domain --> i