Changeset 1046 for LMDZ4/trunk/libf/dyn3dpar/conf_gcm.F

Timestamp:

Nov 6, 2008, 5:39:24 PM (16 years ago)

Author:

lmdzadmin

Message:

Modifs guidage pour utiliser des champs de guidage sur niveaux hybrides
Ajout cle logique ok_gradsfile (.false. par defaut) pour activer sorties grads du guidage
FC/IM

File:

• LMDZ4/trunk/libf/dyn3dpar/conf_gcm.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/conf_gcm.F

@@ -720 +720 @@
       ok_strato=.FALSE.
       CALL getin('ok_strato',ok_strato)
+
+!Config  Key  = ok_gradsfile
+!Config  Desc = activation des sorties grads du guidage
+!Config  Def  = n
+!Config  Help = active les sorties grads du guidage
+
+       ok_gradsfile = .FALSE.
+       CALL getin('ok_gradsfile',ok_gradsfile)
 
       write(lunout,*)' #########################################'
@@ -757 +765 @@
       write(lunout,*)' omp_chunk = ', omp_chunk
       write(lunout,*)' ok_strato = ', ok_strato
+      write(lunout,*)' ok_gradsfile = ', ok_gradsfile
 c
       RETURN