Changeset 2004 for trunk


Ignore:
Timestamp:
Oct 2, 2018, 10:54:53 AM (6 years ago)
Author:
jleconte
Message:

02/10/2018 == JL

  • correct a bug introduced in commit 1987 in optcv.
Location:
trunk/LMDZ.GENERIC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/README

    r1993 r2004  
    13941394This is now harmonized. ALl routines use Psat_water. Watersat.F has been removed, but the routine is now in watercommon for archival purpose. It is not used anymore.
    13951395-also changed the number of chars for tname in the dyn3D/infotrac.F90 to be able to run rcm1d.
     1396
     1397== 02/10/2018 == JL
     1398- correct a bug introduced in commit 1987 in optcv.

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

    r1987 r2004  
    361361        END DO
    362362
    363         DO L=1,L_NLAYRAD+1
     363        DO L=1,L_NLAYRAD
    364364           TAUV(L,NW,NG)=TAUCUMV(2*L,NW,NG)
    365365        END DO
     366        TAUV(L,NW,NG)=TAUCUMV(2*L_NLAYRAD+1,NW,NG)
    366367     END DO           
    367368  END DO                 ! end full gauss loop
Note: See TracChangeset for help on using the changeset viewer.