Changeset 1842

Timestamp:

Dec 5, 2017, 6:16:03 PM (8 years ago)

Author:

mturbet

Message:

debuggage

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• phys_state_var_mod.F90 (modified) (2 diffs)
• physiq_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/phys_state_var_mod.F90 ¶

@@ -17 +17 @@
       use surfdat_h, only: phisfi, albedodat,  &
                         zmea, zstd, zsig, zgam, zthe
-      use tracer_h, only: nqtot
       use turb_mod
 !#include "bands.h"
@@ -92 +91 @@
 
 !$OMP THREADPRIVATE(dlw,fder)
+      
 CONTAINS
 
 !======================================================================
-SUBROUTINE phys_state_var_init
+SUBROUTINE phys_state_var_init(nqtot)
 
 IMPLICIT NONE
+
+        integer :: nqtot
 
 !  Parametres de l'Orographie a l'Echelle Sous-Maille (OESM):

trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 ¶

@@ -406 +406 @@
       if (firstcall) then
         ! Allocate saved arrays.
-        call phys_state_var_init
+        call phys_state_var_init(nq)
 
 !        Variables set to 0