Changeset 4537 for LMDZ6/trunk/libf/phylmd/phyredem.F90

Timestamp:

May 15, 2023, 1:03:18 AM (14 months ago)

Author:

fhourdin

Message:

Travail preparatoire au couplage avec mesoNH

Travail preparatoire aux test d'integration de la physique de MesoNH
et plus generalement a la reecriture du moniteur de la physique.
phylmd appelle phylmdex si une cle iflag_physiq=2 est ajoutee dans run.def
Il a ete necessaire en plus d'eliminer un certain nombre d'appels dans
phyetat0 et phyredem.

File:

• LMDZ6/trunk/libf/phylmd/phyredem.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phyredem.F90

@@ -76 +76 @@
   ! Get variables which will be written to restart file from module 
   ! pbl_surface_mod
-  CALL pbl_surface_final(fder, snow, qsurf,  tsoil)
+  if ( iflag_physiq == 1 ) then
+     CALL pbl_surface_final(fder, snow, qsurf,  tsoil)
+  endif
 
   ! Get a variable calculated in module fonte_neige_mod