Changeset 227 for trunk/LMDZ.MARS/libf/phymars/meso_inc

Timestamp:

Jul 15, 2011, 4:36:34 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE and LMDZ.MARS: corrected the bug with readtesassim, now the GCM routine can be used. changed name for slope routines to drop the meso_ prefix

Location:

trunk/LMDZ.MARS/libf/phymars/meso_inc

Files:

• meso_inc_inifisini.F (modified) (1 diff)
• meso_inc_slope.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisini.F

@@ -68 +68 @@
 
         !
-        ! in meso_slope.h
+        ! in slope.h
         !
         theta_sl(:)=wtheta(:)

trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_slope.F

@@ -26 +26 @@
            if (sl_fl0 .lt. sl_di0) sl_di0=sl_fl0
      !!!!!!!!!!!!!!!!!!!!!!!!!!
-        CALL meso_param_slope( mu0(ig), declin, sl_ra, sl_lat, 
+        CALL param_slope( mu0(ig), declin, sl_ra, sl_lat, 
      &            sl_tau, sl_alb, 
      &            sl_the, sl_psi, sl_di0, sl_fl0, sl_flu)