Changeset 956 for LMDZ4/trunk/libf/phylmd/physiq.F

Timestamp:

May 9, 2008, 6:17:59 PM (16 years ago)

Author:

lmdzadmin

Message:

Nettoyage du controle des parametres physiques. FH

Les parametres cycle_diurne, soil_model, new_oliq, ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad et iflag_con
sont maintenant geres par la physique uniquement.
ecritphy est elimine.
dimphy.F90 et clesphys.h ne sont plus utilises par le code dynamique.
Le test academique obtenu en compilant avec
makegcm -p nophys gcm
fonctionne. FH
IM

File:

• LMDZ4/trunk/libf/phylmd/physiq.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -1251 +1251 @@
       print*,'iflag_coupl,iflag_clos,iflag_wake',
      .   iflag_coupl,iflag_clos,iflag_wake
+      print*,'CYCLE_DIURNE', cycle_diurne
 
 c
@@ -1266 +1267 @@
              PRINT*, "Using method MELLOR&YAMADA" 
          endif
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! FH 2008/05/02 changement lie a la lecture de nbapp_rad dans phylmd plutot que
+! dyn3d
+! Attention : la version precedente n'etait pas tres propre.
+! Il se peut qu'il faille prendre une valeur differente de nbapp_rad
+! pour obtenir le meme resultat.
+         dtime=pdtphys
+         radpas = NINT( 86400./dtime/nbapp_rad)
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
 
          CALL phyetat0 ("startphy.nc",dtime,co2_ppm_etat0,solaire_etat0,
@@ -1293 +1305 @@
       ENDDO
 
-         radpas = NINT( 86400./dtime/nbapp_rad)
 c
 C on remet le calendrier a zero