Changeset 1531 for trunk/LMDZ.GENERIC/libf/phystd/dyn1d

Timestamp:

Apr 7, 2016, 9:17:30 AM (9 years ago)

Author:

mturbet

Message:

Generic GCM:

• Fix buggy ouputs in 1D introduced by previous code modifications.

EM+MT

File:

• trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

@@ -21 +21 @@
      &                        mugaz, rcp, omeg
       use time_phylmdz_mod, only: daysec, dtphys, day_step, ecritphy,
-     &                            nday
+     &                            nday, iphysiq
       use callkeys_mod, only: tracer,check_cpp_match,rings_shadow,
      &                        specOLR,water,pceil,ok_slab_ocean
       USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff
       USE logic_mod, ONLY: hybrid,autozlevs
+      use regular_lonlat_mod, only: init_regular_lonlat
+      use planete_mod, only: ini_planete_mod
       use inifis_mod, only: inifis
       implicit none
@@ -478 +480 @@
       write(*,*) " day_step = ",day_step
 
-       
+      iphysiq=1 ! in 1D model physics are called evry time step
       ecritphy=day_step ! default value for ecritphy
       PRINT *,'Nunber of steps between writediagfi ?'
@@ -497 +499 @@
       write(*,*)"-------------------------------------"
       write(*,*)"-------------------------------------"
+
+      ! initializations, as with iniphysiq.F90 for the 3D GCM
+      CALL init_regular_lonlat(1,1,longitude,latitude,
+     &                   (/0.,0./),(/0.,0./))
+      
+      call ini_planete_mod(nlayer,preff,ap,bp)
 
 !!! CALL INIFIS