Changeset 1400

Timestamp:

2009-04-14T15:02:27+02:00 (15 years ago)

Author:

flavoni

Message:

change opa9.driver to use diaptr.F90 function, see ticket #411

File:

• branches/libIGCM/ORCA2_LIM/IGCM00/COMP/opa9.driver (modified) (5 diffs)

branches/libIGCM/ORCA2_LIM/IGCM00/COMP/opa9.driver

@@ -7 +7 @@
     JOB_NAME=${config_UserChoices_JobName}
 
-########################################
-# old version: less compact
-#    if [ -z "${opa_UserChoices_OPA_NDT_DAY}" ] ; then
-#  OPA_NDT_DAY=15
-#    else
-#  OPA_NDT_DAY=${opa_UserChoices_OPA_NDT_DAY}
-#    fi
-########################################
-     OPA_NDT_DAY=${opa_UserChoices_OPA_NDT_DAY:=15}
+    OPA_NDT_DAY=${opa_UserChoices_OPA_NDT_DAY:=15}
 
 
@@ -30 +22 @@
     # ndate0 initial calendar date aammjj
     # nmsh  =1 create a mesh file (coordinates, scale factors, masks)
+    # nwrihf frequency of HF OUTPUT file
+    # rdt time step in seconds (coming from namelist)
+    # nf_ptr_wri frequency of zonal means and transport output
+
 
 # Local function to find namelists parameters
@@ -47 +43 @@
     PAT_NDATE0=$( supergrep ndate0    ${SUBMIT_DIR}/PARAM/namelist )
     PAT_NMSH=$(   supergrep nmsh      ${SUBMIT_DIR}/PARAM/namelist ) 
+    PAT_NF_PTR=$( supergrep nf_ptr_wri ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} )
+    
 
     OPA_RDT=$( supergrep rdt  ${SUBMIT_DIR}/PARAM/namelist | sed 's/ *rdt *=//' | sed 's/\. *,//' )
@@ -156 +154 @@
    -e "s%${PAT_NIT000}%       nit000=${OPA_NIT000}%"                    \
    -e "s%${PAT_NITEND}%       nitend=${OPA_NITEND}%"                    \
-   -e "s%${PAT_NLEAPY}%       nleapy=${OPA_NLEAPY}%"                \
    -e "s%${PAT_NWRITE}%       nwrite=${OPA_NWRITE}%"                    \
    -e "s%${PAT_RESTAR}%       ln_rstart=${OPA_LRSTAR}%"                 \
@@ -163 +160 @@
    -e "s%${PAT_NDATE0}%       ndate0=${PeriodDateBegin}%"                \
    -e "s%${PAT_NMSH}%         nmsh=${OPA_NMSH}%"                        \
+   -e "s%${PAT_NLEAPY}%       nleapy=${OPA_NLEAPY}%"                \
+        -e "s/${PAT_NF_PTR}/       nf_ptr_wri=${OPA_NWRITE}/"                \
    namelist > namelist.tmp