Changeset 2058 for trunk/LMDZ.GENERIC

Timestamp:

Jan 9, 2019, 1:01:19 PM (6 years ago)

Author:

jleconte

Message:

on our way to compile mesoscale+generic with gfortran

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• dyn1d/rcm1d.F (modified) (2 diffs)
• physiq_mod.F90 (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

@@ -848 +848 @@
 ! Initialize chemical species
 ! -----------------
+#ifndef MESOSCALE
       if(tracer.and.photochem) then
            call initracer(1,nq,tname)
@@ -856 +857 @@
            noms(1:nq)=nametmp(1:nq)
       endif ! tracer and photochem
+#endif
 
 

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

@@ -57 +57 @@
       use comm_wrf, only : comm_HR_SW, comm_HR_LW, &
                            comm_CLOUDFRAC,comm_TOTCLOUDFRAC,&
+                           comm_SURFRAIN,comm_REEVAP,comm_HR_DYN,&
                            comm_RAIN,comm_SNOW,comm_ALBEQ,&
                            comm_FLUXTOP_DN,comm_FLUXABS_SW,&
@@ -777 +778 @@
       ! Compute mean mass, cp, and R
       ! --------------------------------
-
+#ifndef MESOSCALE
       if(photochem) then
          call concentrations(ngrid,nlayer,nq,pplay,pt,pdt,pq,pdq,ptimestep)
       endif 
+#endif
 
 !---------------------------------
@@ -1350 +1352 @@
   ! -------------------------
 
+#ifndef MESOSCALE
          IF (photochem) then
 
@@ -1385 +1388 @@
 
          END IF  ! of IF (photochem)
-
+#endif