Changeset 2263 for LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90

Timestamp:

Apr 17, 2015, 8:14:36 PM (9 years ago)

Author:

lguez

Message:

In the sequential version, ini_getparam and fin_getparam were not
called so guide_init created a file "fort.99". Added call to
ini_getparam and fin_getparam in guide_init. The created file is now
"nudging_parameters_out.txt".

In the parallel version, ini_getparam was called from gcm, with the
argument "out.def". So "out.def" was created even without nudging, it
remained empty. Moved the call to ini_getparam from gcm to
guide_init. Also changed the name of the created file to
"nudging_parameters_out.txt", as in the sequential version. "out.def"
was too vague and confusing a name.

File:

• LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90

@@ -87 +87 @@
 ! Lecture des parametres:  
 ! ---------------------------------------------
+    call ini_getparam("nudging_parameters_out.txt")
 ! Variables guidees
     CALL getpar('guide_u',.true.,guide_u,'guidage de u')
@@ -159 +160 @@
     CALL getpar('guide_2D',.false.,guide_2D,'fichier guidage lat-P')
 
+    call fin_getparam
+    
 ! ---------------------------------------------
 ! Determination du nombre de niveaux verticaux