Changeset 2078 for trunk


Ignore:
Timestamp:
Jan 22, 2019, 4:53:12 PM (6 years ago)
Author:
jvatant
Message:

Cf r2076, fix a missing dummy init of mugaz causing NaNs?
--JVO

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

    r2062 r2078  
    8585  r=pr
    8686  rcp=r/cpp
     87  mugaz=8.314*1000./pr ! dummy init
    8788  pi=2.*asin(1.)
    8889  avocado = 6.02214179e23   ! added by RW
    … …  
    741742           write(*,*) "cpp=",cpp
    742743       ENDIF
    743 !         else
    744 !           mugaz=8.314*1000./pr
    745744     endif ! of if (force_cpp)
    746745     call su_gases

  • trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90

    r2050 r2078  
    8484  r=pr
    8585  rcp=r/cpp
     86  mugaz=8.314*1000./pr ! dummy init
    8687  pi=2.*asin(1.)
    8788  avocado = 6.02214179e23   ! added by RW
    … …  
    531532           write(*,*) "cpp=",cpp
    532533       ENDIF
    533 !         else
    534 !           mugaz=8.314*1000./pr
    535534     endif ! of if (force_cpp)
    536535     
Note: See TracChangeset for help on using the changeset viewer.