Changeset 3831 for dynamico_lmdz/aquaplanet/LMDZ5/libf/dynlonlat_phylonlat

Timestamp:

Jun 18, 2015, 12:00:37 PM (10 years ago)

Author:

ymipsl

Message:

module reorganisation for a cleaner dyn-phys interface
YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90 (modified) (3 diffs)

dynamico_lmdz/aquaplanet/LMDZ5/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90

@@ -20 +20 @@
                       niadv,conv_flg,pbl_flg,solsym
   USE control_mod, ONLY: dayref,anneeref,day_step,iphysiq,nday,&
-                         config_inca,raz_date,offline
+                         raz_date,offline
   USE inifis_mod, ONLY: inifis
+  USE time_phylmdz_mod, ONLY: init_time
   USE infotrac_phy, ONLY: init_infotrac_phy
   USE phyaqua_mod, ONLY: iniaqua
@@ -88 +89 @@
   REAL,ALLOCATABLE,SAVE :: boundslatfi(:,:)
 !$OMP THREADPRIVATE (latfi,lonfi,cufi,cvfi,airefi,boundslonfi,boundslatfi)
+  INTEGER :: itaufin_phy
+  
 
   CALL init_physics_distribution(regular_lonlat, 4, nbp, ii, jj+1, nlayer, communicator)
@@ -233 +236 @@
 
   ! transfer some flags/infos from dynamics to physics
-  call inifis(punjours,prad,pg,pr,pcpp,ptimestep,&
-              day_step,iphysiq,dayref,anneeref,nday,&
-              annee_ref,day_ini,day_end,&
-              itau_phy,itaufin,&
-              start_time,day_ref,jD_ref, &
-              offline,raz_date,config_inca, &
-              lunout,prt_level,debug)
+  
+  itaufin_phy=itaufin/iphysiq
+
+  CALL inifis(punjours,prad,pg,pr,pcpp)
+
+  CALL init_time(annee_ref, day_ref, day_ini, start_time, nday, ptimestep)
   
   ! Additional initializations for aquaplanets