Changeset 2941 for LMDZ5/trunk/libf


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

    r2673 r2941  
    143143!*******************************************************************************
    144144! Look for ozone tracer:
     145#ifndef INCA
    145146  DO i=1,nqtot; IF(ANY(["O3","o3"]==tname(i))) EXIT; END DO
    146147  IF(i/=nqtot+1) THEN
     
    150151    q3d(:,:,:,i)=q3d(:,:,:,i)*48./ 29.                  !--- Mole->mass fraction         
    151152  END IF
     153#endif
    152154  q3d(iip1,:,:,:)=q3d(1,:,:,:)
    153155
Note: See TracChangeset for help on using the changeset viewer.