Changeset 1826 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
Nov 28, 2017, 4:55:47 PM (7 years ago)
Author:
jvatant
Message:

Correct non-initialized variables in rcm1d causing NaN's with exigent compilers !
Also correct a small error in optcv
--JVO

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

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/rcm1d.F

    r1790 r1826  
    724724      enddo
    725725
     726! Initialize methane surface tank
     727! -------------------------------
     728      tankCH4=2. ! default value for tankCH4
    726729
    727730c  Write a "startfi" file

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

    r1823 r1826  
    4444  REAL*8, INTENT(IN)  :: PLEV(L_LEVELS)
    4545  REAL*8, INTENT(IN)  :: TMID(L_LEVELS), PMID(L_LEVELS)
     46  REAL*8, INTENT(IN)  :: TAURAY(L_NSPECTV)
    4647 
    4748  REAL*8, INTENT(OUT) :: DTAUV(L_NLAYRAD,L_NSPECTV,L_NGAUSS)
    … …  
    5051  REAL*8, INTENT(OUT) :: COSBV(L_NLAYRAD,L_NSPECTV,L_NGAUSS)
    5152  REAL*8, INTENT(OUT) :: WBARV(L_NLAYRAD,L_NSPECTV,L_NGAUSS)
    52   REAL*8, INTENT(OUT) :: TAURAY(L_NSPECTV)
    5353  REAL*8, INTENT(OUT) :: TAUGSURF(L_NSPECTV,L_NGAUSS-1)
    5454  ! ==========================================================
Note: See TracChangeset for help on using the changeset viewer.