Changeset 2941 for LMDZ5/trunk/libf

Timestamp:

Jul 11, 2017, 4:15:45 PM (7 years ago)

Author:

acozic

Message:

when we make a simulation with inca, we do not want to make a test on ozone for the ce0l

File:

• LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

@@ -143 +143 @@
 !*******************************************************************************
 ! Look for ozone tracer:
+#ifndef INCA
   DO i=1,nqtot; IF(ANY(["O3","o3"]==tname(i))) EXIT; END DO
   IF(i/=nqtot+1) THEN
@@ -150 +151 @@
     q3d(:,:,:,i)=q3d(:,:,:,i)*48./ 29.                  !--- Mole->mass fraction         
   END IF
+#endif
   q3d(iip1,:,:,:)=q3d(1,:,:,:)