Ignore:
Timestamp:
Jun 9, 2020, 3:57:33 PM (5 years ago)
Author:
emillour
Message:

Generic GCM:
Major cleanup: remove obsolete compilation scripts (makegcm*) and old dynamical
core, as it is obsolete with respect to the one provide in LMDZ.COMMON.
EM

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

Legend:

Unmodified
Added
Removed

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

    r2336 r2354  
    4444      use phys_state_var_mod, only: phys_state_var_init
    4545      use phyetat0_mod, only: phyetat0
     46      use exner_hyb_m, only: exner_hyb
    4647      implicit none
    4748
    … …  
    136137      REAL :: xpn,xps,xppn(iim),xpps(iim)
    137138      REAL :: p3d(iip1, jjp1, llm+1)
    138       REAL :: beta(iip1,jjp1,llm)
    139139!      REAL dteta(ip1jmp1,llm)
    140140
    … …  
    15881588c-----------------------------------------------------------------------
    15891589
    1590       CALL exner_hyb(ip1jmp1, ps, p3d, beta, pks, pk, pkf)
     1590      CALL exner_hyb(ip1jmp1, ps, p3d, pks, pk, pkf)
    15911591! Calcul de la temperature potentielle teta
    15921592

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

    r2336 r2354  
    3737      use nonoro_gwd_ran_mod, only: du_nonoro_gwd, dv_nonoro_gwd,
    3838     &                          east_gwstress, west_gwstress
     39      use exner_hyb_m, only: exner_hyb
    3940      implicit none
    4041
    … …  
    5859      REAL pk(ip1jmp1,llm)
    5960      REAL pkf(ip1jmp1,llm)
    60       REAL beta(iip1,jjp1,llm)
    6161      REAL phis(ip1jmp1)                     ! geopotentiel au sol
    6262      REAL masse(ip1jmp1,llm)                ! masse de l'atmosphere
    … …  
    291291
    292292      CALL pression(ip1jmp1, ap, bp, ps, p3d)
    293       call exner_hyb(ip1jmp1, ps, p3d, beta, pks, pk, pkf)
     293      call exner_hyb(ip1jmp1, ps, p3d, pks, pk, pkf)
    294294
    295295c=======================================================================
Note: See TracChangeset for help on using the changeset viewer.