Changeset 1403 for trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/newstart.F

Timestamp:

Mar 31, 2015, 3:49:07 PM (10 years ago)

Author:

emillour

Message:

All models: Reorganizing the physics/dynamics interface.

• makelmdz and makelmdz_fcm scripts adapted to handle the new directory settings

• misc: (replaces what was the "bibio" directory)
• Should only contain extremely generic (and non physics or dynamics-specific) routines
• Therefore moved initdynav.F90, initfluxsto.F, inithist.F, writedynav.F90, write_field.F90, writehist.F to "dyn3d_common"

• dynlonlat_phylonlat: (new interface directory)
• This directory contains routines relevent to physics/dynamics grid interactions, e.g. routines gr_dyn_fi or gr_fi_dyn and calfis
• Moreover the dynlonlat_phylonlat contains directories "phy*" corresponding to each physics package "phy*" to be used. These subdirectories should only contain specific interfaces (e.g. iniphysiq) or main programs (e.g. newstart)

• phy*/dyn1d: this subdirectory contains the 1D model using physics from phy*

EM

Location:

trunk/LMDZ.MARS/libf/dynlonlat_phylonlat

Files:

• . (added)
• phymars (added)
• phymars/newstart.F (moved) (moved from trunk/LMDZ.MARS/libf/phymars/newstart.F) (3 diffs)

trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/newstart.F

@@ -34 +34 @@
       use turb_mod, only: q2
       use comgeomfi_h, only: ini_fillgeom
-
+      use filtreg_mod, only: inifilr
 
       implicit none
@@ -137 +137 @@
       integer flagthermo, flagh2o
       character modif*20
-      real z_reel(iip1,jjp1)
       real tsud,albsud,alb_bb,ith_bb,Tiso
       real ptoto,pcap,patm,airetot,ptotn,patmn
@@ -545 +544 @@
         if (trim(modif) .eq. 'flat') then
 c         set topo to zero 
-          CALL initial0(ip1jmp1,z_reel)
-          CALL multscal(ip1jmp1,z_reel,g,phis)
+          phis(:,:)=0
           CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,phis,phisfi)
           write(*,*) 'topography set to zero.'