Ignore:
Timestamp:
Feb 21, 2017, 9:17:00 AM (8 years ago)
Author:
emillour
Message:

Generic GCM:
Added possibility to run without a startfi.nc file (mainly usefull for
tests with coupling with dynamico dynamical core):

  • added flag "startphy_file" flag (.false. if doing an "academic" start on the physics side).
  • turned phyetat0.F90 into module phyetat0_mod.F90
  • turned tabfi.F into module tabfi_mod.F90 and added handling of startphy_file==.false. case
  • extra initializations in physiq_mod for startphy_file==.false. case.

EM

Location:
trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F

    r1589 r1669  
    3737      USE temps_mod, ONLY: day_ini
    3838      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
     39      use tabfi_mod, only: tabfi
    3940      use iniphysiq_mod, only: iniphysiq
     41      use phyetat0_mod, only: phyetat0
    4042      implicit none
    4143
    … …  
    353355        write(*,*) 'Reading file STARTFI'
    354356        fichnom = 'startfi.nc'
    355         CALL phyetat0 (ngridmx,llm,fichnom,tab0,Lmodif,nsoilmx,
     357        CALL phyetat0(.true.,ngridmx,llm,fichnom,tab0,Lmodif,nsoilmx,
    356358     .        nqtot,day_ini,time,
    357359     .        tsurf,tsoil,emis,q2,qsurf,   !) ! temporary modif by RDW

  • trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/start2archive.F

    r1593 r1669  
    3737      USE temps_mod, ONLY: day_ini
    3838      USE iniphysiq_mod, ONLY: iniphysiq
     39      use phyetat0_mod, only: phyetat0
    3940      implicit none
    4041
    … …  
    234235
    235236
    236       CALL phyetat0 (ngridmx,llm,fichnom,0,Lmodif,nsoilmx,nqtot,
     237      CALL phyetat0(.true.,ngridmx,llm,fichnom,0,Lmodif,nsoilmx,nqtot,
    237238     .      day_ini_fi,timefi,
    238239     .      tsurf,tsoil,emis,q2,qsurf,
Note: See TracChangeset for help on using the changeset viewer.