Changeset 4025 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO

Timestamp:

2013-09-12T11:08:28+02:00 (11 years ago)

Author:

clevy

Message:

Configuration setting/correct errors, see ticket:#1074

Location:

branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO

Files:

• NST_SRC/agrif_user.F90 (modified) (2 diffs)
• OPA_SRC/nemogcm.F90 (modified) (1 diff)

branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

@@ -31 +31 @@
       jpi     = ( jpiglo-2*jpreci + (jpni-1+0) ) / jpni + 2*jpreci
       jpj     = ( jpjglo-2*jprecj + (jpnj-1+0) ) / jpnj + 2*jprecj
+      jpk     = jpkdta 
+      jpim1   = jpi-1 
+      jpjm1   = jpj-1 
+      jpkm1   = jpk-1                                         
+      jpij    = jpi*jpj 
       jpidta  = jpiglo
       jpjdta  = jpjglo
@@ -67 +72 @@
       ENDIF
    ENDIF
+PRINT *, " cp_cfg = ",cp_cfg," jp_cfg= ", jp_cfg
    ! Specific fine grid Initializations
    ! no tracer damping on fine grids

branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -504 +504 @@
          WRITE(numout,*) '      left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom
          WRITE(numout,*) '      lateral cond. type (between 0 and 6) jperio = ', jperio   
-         WRITE(numout,*) '      type of horizontal mesh jphgr_msh           = ', jphgr_msh
-         WRITE(numout,*) '      longitude of first raw and column T-point ppglam0 = ', ppglam0
-         WRITE(numout,*) '      latitude  of first raw and column T-point ppgphi0 = ', ppgphi0
-         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_deg        = ', ppe1_deg
-         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_deg        = ', ppe2_deg
-         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_m          = ', ppe1_m
-         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_m          = ', ppe2_m
-         WRITE(numout,*) '      ORCA r4, r2 and r05 coefficients  ppsur           = ', ppsur
-         WRITE(numout,*) '                                        ppa0            = ', ppa0
-         WRITE(numout,*) '                                        ppa1            = ', ppa1
-         WRITE(numout,*) '                                        ppkth           = ', ppkth
-         WRITE(numout,*) '                                        ppacr           = ', ppacr
-         WRITE(numout,*) '      Minimum vertical spacing ppdzmin                  = ', ppdzmin
-         WRITE(numout,*) '      Maximum depth pphmax                              = ', pphmax
-         WRITE(numout,*) '      Use double tanf function for vertical coordinates ldbletanh = ', ldbletanh
-         WRITE(numout,*) '      Double tanh function parameters ppa2              = ', ppa2
-         WRITE(numout,*) '                                      ppkth2            = ', ppkth2
-         WRITE(numout,*) '                                      ppacr2            = ', ppacr2
       ENDIF
       !                             ! Parameter control