Changeset 7025 for branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/create_restart.f90

Timestamp:

2016-10-13T11:08:38+02:00 (8 years ago)

Author:

jpaul

Message:

see ticket #1781

File:

• branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/create_restart.f90 (modified) (6 diffs)

branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/create_restart.f90

@@ -62 +62 @@
 !>
 !>    * _vertical grid namelist (namzgr)_:<br/>
-!>       - dn_pp_to_be_computed  :
-!>       - dn_ppsur              :
-!>       - dn_ppa0               :
-!>       - dn_ppa1               :
-!>       - dn_ppa2               : 
-!>       - dn_ppkth              :
-!>       - dn_ppkth2             :
-!>       - dn_ppacr              :
-!>       - dn_ppacr2             :
-!>       - dn_ppdzmin            :
-!>       - dn_pphmax             :
+!>       - dn_ppsur              : coefficient to compute vertical grid
+!>       - dn_ppa0               : coefficient to compute vertical grid
+!>       - dn_ppa1               : coefficient to compute vertical grid
+!>       - dn_ppa2               : double tanh function parameter
+!>       - dn_ppkth              : coefficient to compute vertical grid
+!>       - dn_ppkth2             : double tanh function parameter
+!>       - dn_ppacr              : coefficient to compute vertical grid
+!>       - dn_ppacr2             : double tanh function parameter
+!>       - dn_ppdzmin            : minimum vertical spacing
+!>       - dn_pphmax             : maximum depth
 !>       - in_nlevel             : number of vertical level
 !>
+!>     @note If ppa1 and ppa0 and ppsur are undefined
+!>           NEMO will compute them from ppdzmin , pphmax, ppkth, ppacr
+!>
 !>    * _partial step namelist (namzps)_:<br/>
-!>       - dn_e3zps_min          :
-!>       - dn_e3zps_rat          : 
+!>       - dn_e3zps_min          : minimum thickness of partial step level (meters)
+!>       - dn_e3zps_rat          : minimum thickness ratio of partial step level
 !>
 !>    * _variable namelist (namvar)_:<br/>
@@ -158 +160 @@
 !> @date September, 2015
 !> - manage useless (dummy) variable, attributes, and dimension
+!>
+!> @todo
+!> - rewrite using meshmask instead of bathymetry and coordinates files
 !>
 !> @note Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
@@ -262 +267 @@
 
    !namzgr
-   REAL(dp)                                :: dn_pp_to_be_computed = 0._dp
    REAL(dp)                                :: dn_ppsur   = -3958.951371276829_dp
    REAL(dp)                                :: dn_ppa0    =   103.953009600000_dp
@@ -316 +320 @@
  
    NAMELIST /namzgr/ &
-   &  dn_pp_to_be_computed, &
    &  dn_ppsur,     &
    &  dn_ppa0,      &
@@ -402 +405 @@
       ! match variable with file
       tl_multi=multi_init(cn_varfile)
-      
+ 
       READ( il_fileid, NML = namnst )
       READ( il_fileid, NML = namout )
@@ -592 +595 @@
                !- check grid coincidence
                IF( ll_sameGrid )THEN
+                  il_rho(:)=1
                   CALL grid_check_coincidence( tl_mpp, tl_coord1, &
                   &                            il_imin1, il_imax1, &