Changeset 1081 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
Oct 28, 2013, 2:03:36 PM (11 years ago)
Author:
slebonnois
Message:

SL: correction of a mistake in previous commit...

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1080 r1081  
    202202       
    203203        COSBV(ig,:,:,:)= MAX(MIN(COSBV_1pt(:,:,:),0.999999),1e-6)
    204         WBARV(ig,:,:,:)= WBARV_1pt(:,:,:),0.999999),1e-6)
     204        WBARV(ig,:,:,:)= MAX(MIN(WBARV_1pt(:,:,:),0.999999),1e-6)
    205205        DTAUV(ig,:,:,:)= DTAUV_1pt(:,:,:)
    206206        TAUV(ig,:,:,:) = TAUV_1pt(:,:,:)
Note: See TracChangeset for help on using the changeset viewer.