Changeset 1034


Ignore:
Timestamp:
Sep 9, 2013, 12:26:45 AM (11 years ago)
Author:
aslmd
Message:

LMDZ.MARS. sorry obvious bug in the previous commit.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/comtherm_h.F90

    r1033 r1034  
    8383       REAL,PARAMETER :: a1=1.          ! a in paper, see paragraph 41
    8484       REAL,PARAMETER :: b1=0.0001      ! b in paper, see paragraph 41
    85        ! Inversion layer
    86        REAL :: a1inv ! a1 coeff in inversion layer
    87        REAL :: b1inv ! b1 coeff in inversion layer
    88        a1inv = a1 
    89        b1inv = b1 
     85       ! Inversion layer (same as a1 b1 actually)
     86       REAL :: a1inv=1.         ! a1 coeff in inversion layer
     87       REAL :: b1inv=0.0001     ! b1 coeff in inversion layer
    9088       ! ------------------------------------------------------------------------------------
    9189       ! ------------------------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.