Changeset 2258 for LMDZ5/branches/testing/libf/phylmd/lmdz1d.F90

Timestamp:

Apr 13, 2015, 10:21:09 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes 2216:2237 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/lmdz1d.F90 (modified) (8 diffs)

LMDZ5/branches/testing/libf/phylmd/lmdz1d.F90

@@ -10 +10 @@
       USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar
       use phys_state_var_mod
-      use comgeomphy
       use dimphy
       use surface_data, only : type_ocean,ok_veget
@@ -203 +202 @@
 !  Call to physiq
 !---------------------------------------------------------------------
-      integer, parameter :: longcles=20
       logical :: firstcall=.true.
       logical :: lastcall=.false.
       real :: phis    = 0.0
-      real :: clesphy0(longcles) = 0.0
       real :: dpsrf 
 
@@ -365 +362 @@
 !---------------------------------------------------------------------
 
-      call conf_gcm( 99, .TRUE. , clesphy0 )
+      call conf_gcm( 99, .TRUE. )
 !-----------------------------------------------------------------------
 !   Choix du calendrier
@@ -473 +470 @@
       call init_phys_lmdz(1,1,llm,1,(/1/))
       call suphel
-      call initcomgeomphy
       call infotrac_init 
 
@@ -608 +604 @@
       rlon_rad(:)=rlon(:)*rpi/180.
 
-      call iniphysiq(ngrid,llm,rday,day_ini,timestep,                        &
+      call iniphysiq(iim,jjm,llm,rday,day_ini,timestep,                        &
      &     rlat_rad,rlon_rad,airefi,zcufi,zcvfi,ra,rg,rd,rcpd,(/1/))
       print*,'apres iniphysiq'
@@ -618 +614 @@
 ! Ecriture du startphy avant le premier appel a la physique.
 ! On le met juste avant pour avoir acces a tous les champs
-! NB: les clesphy0 seront remplies dans phyredem d'apres les flags lus dans gcm.def
 
       if (ok_writedem) then
@@ -673 +668 @@
         zpic = zpicinp
         ftsol=tsurf
+        nsw=6 ! on met le nb de bandes SW=6, pour initialiser
+              ! 6 albedo, mais on peut quand meme tourner avec
+              ! moins. Seules les 2 ou 4 premiers seront lus
         falb1 = albedo                            
         falb2 = albedo                            
+        falb_dir=albedo
+        falb_dif=albedo
         rugoro=rugos 
         t_ancien(1,:)=temp(:)
@@ -859 +859 @@
      &              firstcall,lastcall,                                     &
      &              day,time,timestep,                                      &
-     &              plev,play,phi,phis,presnivs,clesphy0,                   &
+     &              plev,play,phi,phis,presnivs,                            &
      &              u,v,temp,q,omega2,                                      &
      &              du_phys,dv_phys,dt_phys,dq,dpsrf,                        &