Changeset 726 for LMDZ4/branches/V3_test/libf/phylmd/physiq.F

Timestamp:

Nov 6, 2006, 4:51:16 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Modifications pour rendre INCA plus independant de LMDZ ACo
LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/physiq.F (modified) (3 diffs)

LMDZ4/branches/V3_test/libf/phylmd/physiq.F

@@ -25 +25 @@
       USE misc_mod, mydebug=>debug
       USE vampir
-#ifdef INCA
-cym      USE chemshut
-      USE species_names
-#ifdef INCA_CH4
-!      USE obs_pos
-#endif
-#endif
       IMPLICIT none
 c======================================================================
@@ -1945 +1938 @@
            WRITE(lunout,*) 'Appel CHEMINI ...'
 #endif
-           CALL chemini( rpi,
+           CALL chemini( 
      $                   rg,
      $                   ra,
@@ -3021 +3014 @@
 
 #ifdef INCA_AER
-      call AEROSOL_METEO_CALC(calday,pdtphys,pplay,paprs,t,pmflxr,pmflxs,
-     &   prfl,psfl,pctsrf(1,3),airephy,xjour,rlat,rlon)
+      call AEROSOL_METEO_CALC(calday,pdtphys,pplay,paprs,t,pmflxr,pmflxs
+     &   ,prfl,psfl,pctsrf,airephy,xjour,rlat,rlon,u10m,v10m)
 #endif