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

Timestamp:

Jul 15, 2011, 4:36:34 PM (14 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

Files:

• meso_inc/meso_inc_inifisini.F (modified) (1 diff)
• meso_inc/meso_inc_slope.F (modified) (1 diff)
• meso_inifis.F (modified) (1 diff)
• meso_physiq.F (modified) (1 diff)
• param_slope.F90 (moved) (moved from trunk/LMDZ.MARS/libf/phymars/meso_param_slope.F90) (2 diffs)
• slope.h (moved) (moved from trunk/LMDZ.MARS/libf/phymars/meso_slope.h)

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)

trunk/LMDZ.MARS/libf/phymars/meso_inifis.F

@@ -65 +65 @@
 #include "datafile.h"
 #ifdef MESOSCALE
-#include "meso_slope.h"
+#include "slope.h"
 #include "comsoil.h"     !!MESOSCALE -- needed to fill volcapa
 #include "meso_inc/meso_inc_inifisvar.F"

trunk/LMDZ.MARS/libf/phymars/meso_physiq.F

@@ -136 +136 @@
 
 #ifdef MESOSCALE
-#include "meso_slope.h"
+#include "slope.h"
 #include "wrf_output_2d.h"
 #include "wrf_output_3d.h"

trunk/LMDZ.MARS/libf/phymars/param_slope.F90

@@ -1 @@
-SUBROUTINE meso_param_slope( &
+SUBROUTINE param_slope( &
   !
   ! INPUTS
@@ -218 +218 @@
 !  print *, 'reflected component ', fref
 
-END SUBROUTINE meso_param_slope
+END SUBROUTINE param_slope