Changeset 3795

Timestamp:

Jan 5, 2021, 3:59:15 PM (4 years ago)

Author:

Laurent Fairhead

Message:

En cas de guidage du modele avec ses propres sorties, pas besoin de convertir les niveaux de pressions en Pa
FC

File:

• LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.F90

@@ -27 +27 @@
   LOGICAL, PRIVATE, SAVE  :: invert_p,invert_y,ini_anal
   LOGICAL, PRIVATE, SAVE  :: guide_2D,guide_sav,guide_modele
+!FC
+  LOGICAL, PRIVATE, SAVE  :: convert_Pa
   
   REAL, PRIVATE, SAVE     :: tau_min_u,tau_max_u
@@ -152 +154 @@
         guide_plevs=1
     ENDIF
+!FC
+    CALL getpar('convert_Pa',.true.,convert_Pa,'Convert Pressure levels in Pa')
     ! Fin raccord
     CALL getpar('ini_anal',.false.,ini_anal,'Etat initial = analyse')
@@ -1695 +1699 @@
              status=NF_GET_VARA_REAL(ncidpl,varidpl,1,nlevnc,apnc)
 #endif
-             apnc=apnc*100.! conversion en Pascals
+!FC Pour les corrections la pression est deja en Pascals on commente la ligne ci-dessous
+             IF(convert_Pa) apnc=apnc*100.! conversion en Pascals
              bpnc(:)=0.
          ENDIF