Ignore:
Timestamp:
Feb 21, 2017, 11:32:17 AM (8 years ago)
Author:
jvatant
Message:

Adapts modifs of LMDZ.GENERIC r1669 to LMDZ.TITAN

cf log r1669 :
"""
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
"""
JVO

Location:
trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

    r1647 r1670  
    3535      USE temps_mod, ONLY: day_ini
    3636      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
     37      use tabfi_mod, only: tabfi
    3738      use iniphysiq_mod, only: iniphysiq
     39      use phyetat0_mod, only: phyetat0
    3840      implicit none
    3941
    … …  
    337339        write(*,*) 'Reading file STARTFI'
    338340        fichnom = 'startfi.nc'
    339         CALL phyetat0 (ngridmx,llm,fichnom,tab0,Lmodif,nsoilmx,
     341        CALL phyetat0(.true.,ngridmx,llm,fichnom,tab0,Lmodif,nsoilmx,
    340342     .        nqtot,day_ini,time,
    341343     .        tsurf,tsoil,emis,q2,qsurf)

  • trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/start2archive.F

    r1647 r1670  
    3535      USE temps_mod, ONLY: day_ini
    3636      USE iniphysiq_mod, ONLY: iniphysiq
     37      use phyetat0_mod, only: phyetat0
    3738      implicit none
    3839
    … …  
    214215
    215216
    216       CALL phyetat0 (ngridmx,llm,fichnom,0,Lmodif,nsoilmx,nqtot,
     217      CALL phyetat0(.true.,ngridmx,llm,fichnom,0,Lmodif,nsoilmx,nqtot,
    217218     .      day_ini_fi,timefi,
    218219     .      tsurf,tsoil,emis,q2,qsurf)
Note: See TracChangeset for help on using the changeset viewer.