Changeset 1658 for LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F

Timestamp:

Oct 5, 2012, 9:56:56 AM (12 years ago)

Author:

Laurent Fairhead

Message:

Phasage de la dynamique parallele localisee (petite memoire) avec le tronc LMDZ4 (HEAD)
Validation effectuee par comparaison des fichiers de sorties debug (u, v, t, q, masse, etc ...) d'une simulation sans physique
faite avec la version du modele donnee par Y. Meurdesoif et la version phasee avec la r1428 (fin du tronc LMDZ4)

---

Phasing of the localised (low memory) parallel dynamics package with the LMDZ4 trunk version of LMDZ
Validation consisted in comparing output debug files (u, v, t, q, masse, etc... ) of a no physics simulation
run with the version of the code given by Y. Meurdesoif and this version phased with r1428 (HEAD of the LMDZ4 trunk)

File:

• LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F (modified) (4 diffs)

LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F

@@ -1 +1 @@
 !
-! $Id: conf_gcm.F 1357 2010-04-14 14:03:19Z emillour $
+! $Id: conf_gcm.F 1403 2010-07-01 09:02:53Z fairhead $
 !
 c
@@ -362 +362 @@
        iphysiq = 5
        CALL getin('iphysiq', iphysiq)
-
-ccc   .... P.Le Van, ajout le 03/01/96 pour l'ecriture phys ...
-c
-
 
 !Config  Key  = ip_ebil_dyn
@@ -863 +859 @@
        CALL getin('ok_gradsfile',ok_gradsfile)
 
+!Config  Key  = ok_limit
+!Config  Desc = creation des fichiers limit dans create_etat0_limit
+!Config  Def  = y
+!Config  Help = production du fichier limit.nc requise
+
+       ok_limit = .TRUE.
+       CALL getin('ok_limit',ok_limit)
+
+!Config  Key  = ok_etat0
+!Config  Desc = creation des fichiers etat0 dans create_etat0_limit
+!Config  Def  = y
+!Config  Help = production des fichiers start.nc, startphy.nc requise
+
+      ok_etat0 = .TRUE.
+      CALL getin('ok_etat0',ok_etat0)
+
       write(lunout,*)' #########################################'
-      write(lunout,*)' Configuration des parametres du gcm: '
+      write(lunout,*)' Configuration des parametres de cel0'
+     &             //'_limit: '
       write(lunout,*)' planet_type = ', planet_type
       write(lunout,*)' calend = ', calend
@@ -908 +921 @@
       write(lunout,*)' ok_strato = ', ok_strato
       write(lunout,*)' ok_gradsfile = ', ok_gradsfile
+      write(lunout,*)' ok_limit = ', ok_limit
+      write(lunout,*)' ok_etat0 = ', ok_etat0
 c
       RETURN