Changeset 445 for CONFIG/trunk/IPSLCM5/EXP00/COMP/nemo.driver

Timestamp:

12/04/08 17:27:19 (16 years ago)

Author:

aclsce

Message:

Modifications for the use of coupling interface in NEMO

File:

• CONFIG/trunk/IPSLCM5/EXP00/COMP/nemo.driver (modified) (3 diffs)

CONFIG/trunk/IPSLCM5/EXP00/COMP/nemo.driver

@@ -14 +14 @@
     fi
 
-    ##--Transformation namelist fortran 77 --> fortran 90
-    #   ?       ? Is it really necessary ?       ?
-    #sed -e /:/d -e s/" \&END"/"\/"/ -e s/" \&"/"\&"/ ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} > ${SUBMIT_DIR}/PARAM/namelist
-
+# Local function to find namelists parameters
+        supergrep () {
+            grep "^ *$1 *=" $2 | sed -e "s% *\!.*%%"
+        }
+        
     ##--Variables used by OPA --
 
@@ -32 +33 @@
     # nmsh  =1 create a mesh file (coordinates, scale factors, masks)
 
-    PAT_NO=$(     grep 'no *='     ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | grep -v off | grep -v \!)
-    PAT_CEXPER=$( grep 'cexper *=' ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | grep -v \!)
-    PAT_NIT000=$( grep 'nit000 *=' ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | grep -v \!)
-    PAT_NITEND=$( grep 'nitend *=' ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | grep -v \!)
-    PAT_NBISEX=$( grep 'nbisex *=' ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE}| sed 's/ nbisex  =//' |sed '/^[ ]$/d'|sed 's/,//' | grep -v \!)
-    PAT_NWRITE=$( grep 'nwrite *=' ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | grep -v \!)
-    PAT_RESTAR=$( grep 'ln_rstart *=' ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | grep -v \!)
-    PAT_NSTOCK=$( grep 'nstock *=' ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | grep -v \!)
-    PAT_NRSTAR=$( grep 'nrstdt *=' ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | grep -v \!)
-    PAT_NPRG=$(   grep 'nprg *='   ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | grep -v \!)
-    PAT_NDATE0=$( grep 'ndate0 *=' ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | grep -v \!)
-    PAT_NMSH=$(   grep 'nmsh *='   ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | grep -v \!) 
-#######    PAT_NWRIHF=$( grep 'nwrihf' ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} )
-
-    ORCA_NSTOCK=$( echo $PAT_NSTOCK | sed "s/[a-z,A-Z,=]//g" )
-    ORCA_RDT=$( egrep 'rdt *=' ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | sed 's/ *rdt *=//' | sed 's/\.//' | grep -v \!)
+            PAT_CEXPER=$( supergrep cexper    ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} )
+            PAT_NIT000=$( supergrep nit000    ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} )
+            PAT_NITEND=$( supergrep nitend    ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} )
+            PAT_NWRITE=$( supergrep nwrite    ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} )
+            PAT_RESTAR=$( supergrep ln_rstart ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} )
+            PAT_NSTOCK=$( supergrep nstock    ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} )
+            PAT_NRSTAR=$( supergrep nrstdt    ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} )
+            PAT_NDATE0=$( supergrep ndate0    ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} )
+            PAT_NMSH=$(   supergrep nmsh      ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} )
+        
+            ORCA_NSTOCK=$( echo $PAT_NSTOCK | sed "s/[a-z,A-Z,=]//g" )
+            ORCA_RDT=$( supergrep rdt  ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} | sed 's/ *rdt *=//' | sed 's/\. *,//' )
+
+    ##--Transformation namelist fortran 77 --> fortran 90
+    #   ?       ? Is it really necessary ?       ?
+    #sed -e /:/d -e s/" \&END"/"\/"/ -e s/" \&"/"\&"/ ${SUBMIT_DIR}/PARAM/namelist_${RESOL_OCE} > ${SUBMIT_DIR}/PARAM/namelist
 
     # Period Length In Days between DateBegin and first day of calendar 0001 01 01
@@ -88 +89 @@
             (( ORCA_NWRITE = 0 ))                                                            ;;
     esac
-###            (( ORCA_NWRITE = 1 ))  ;
-###            PREFIX_NWRITE=${config_UserChoices_JobName}_${factor}d ;
-###            R_OUT_OCE_NWRITE=${R_OUT_OCE_O_D} ;
-###            R_OUT_ICE_NWRITE=${R_OUT_ICE_O_D} ;
-###            WF1=${factor}D ;
-
 
     ##--Write Frequency Purpose .... concerning the second opa file type.