Ignore:
Timestamp:
Jun 4, 2013, 12:47:19 PM (11 years ago)
Author:
Laurent Fairhead
Message:

In 1DUTILS.h disvert renamed disvert0.
There are now 2 routines to get a vertical grid: disvert0 or disvert (../dyn3d/disvert.F90).
The new flag ok_old_disvert allows the use of either disvert0 (ok_old_disvert=y) or disvert (ok_old_disvert=n)

In lmdz1d.F: rlat_rad and rlon_rad for coordinates in radians, cfdt ans sfdt concern the geostrophic wind

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phy1d/1DUTILS.h_with_writelim

    r1702 r1763  
    125125       ok_flux_surf = .FALSE.
    126126       CALL getin('ok_flux_surf',ok_flux_surf)
     127
     128!Config  Key  = ok_old_disvert
     129!Config  Desc = utilisation de l ancien programme disvert0 (dans 1DUTILS.h)
     130!Config  Def  = false
     131!Config  Help = utilisation de l ancien programme disvert0 (dans 1DUTILS.h)
     132       ok_old_disvert = .FALSE.
     133       CALL getin('ok_old_disvert',ok_old_disvert)
    127134
    128135!Config  Key  = time_ini
     
    10791086 
    10801087!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    1081       SUBROUTINE disvert(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
     1088      SUBROUTINE disvert0(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
    10821089 
    10831090!    Auteur :  P. Le Van .
Note: See TracChangeset for help on using the changeset viewer.