Changeset 2913 for LMDZ5/branches

Timestamp:

Jun 16, 2017, 4:05:52 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 this part.

File:

• LMDZ5/branches/IPSLCM6.0.10/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90 (modified) (2 diffs)

LMDZ5/branches/IPSLCM6.0.10/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,:,:,:)