Changeset 359 for trunk/NEMO/OPA_SRC/par_ORCA_R05.h90

Timestamp:

2005-12-21T11:46:45+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_033 : RB + CT : Add new surface pressure gradient algorithms

File:

• trunk/NEMO/OPA_SRC/par_ORCA_R05.h90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/par_ORCA_R05.h90

@@ -17 +17 @@
       jpidta  = 722,         &  !: 1st lateral dimension > or = to jpiglo
       jpjdta  = 511,         &  !: 2nd   "         "     > or = to jpjglo
-      jpkdta  =  31,         &  !: number of levels      > or = to jpkglo
+      jpkdta  =  31             !: number of levels      > or = to jpkglo
 
 #if defined key_antarctic
+   INTEGER, PARAMETER ::     &
       ! zoom domain size       !!! * antarctic zoom *
       jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i
@@ -33 +34 @@
 
 #elif defined key_arctic
+   INTEGER, PARAMETER ::     &
       ! zoom domain size       !!! *  arctic zoom  *
       jpiglo  = 562,         &  !: 1st dimension of global domain --> i
@@ -46 +48 @@
 
 #else
+   INTEGER, PARAMETER ::     &
       ! global domain size     !!! * full domain *
       jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i