Changeset 1080 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
Oct 28, 2013, 1:52:54 PM (11 years ago)
Author:
slebonnois
Message:

SL: patch for Titan (optc* routines) + modifs for cpdet module in dyn3dpar to avoid compilation problems

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

Legend:

Unmodified
Added
Removed

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

    r1056 r1080  
    266266        endif
    267267       
    268         COSBI(ig,:,:)  = COSBI_1pt(:,:)
    269         WBARI(ig,:,:)  = WBARI_1pt(:,:)
     268        COSBI(ig,:,:)  = MAX(MIN(COSBI_1pt(:,:),0.999999),1e-6)
     269        WBARI(ig,:,:)  = MAX(MIN(WBARI_1pt(:,:),0.999999),1e-6)
    270270        DTAUI(ig,:,:)  = DTAUI_1pt(:,:)
    271271        TAUI(ig,:,:)   = TAUI_1pt(:,:)
    272272
    273         COSBIP(ig,:,:)  = COSBIP_1pt(:,:)
    274         WBARIP(ig,:,:)  = WBARIP_1pt(:,:)
     273        COSBIP(ig,:,:)  = MAX(MIN(COSBIP_1pt(:,:),0.999999),1e-6)
     274        WBARIP(ig,:,:)  = MAX(MIN(WBARIP_1pt(:,:),0.999999),1e-6)
    275275        DTAUIP(ig,:,:)  = DTAUIP_1pt(:,:)
    276276        TAUIP(ig,:,:)   = TAUIP_1pt(:,:)

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

    r1056 r1080  
    201201        endif
    202202       
    203         COSBV(ig,:,:,:)= COSBV_1pt(:,:,:)
    204         WBARV(ig,:,:,:)= WBARV_1pt(:,:,:) 
     203        COSBV(ig,:,:,:)= MAX(MIN(COSBV_1pt(:,:,:),0.999999),1e-6)
     204        WBARV(ig,:,:,:)= WBARV_1pt(:,:,:),0.999999),1e-6)
    205205        DTAUV(ig,:,:,:)= DTAUV_1pt(:,:,:)
    206206        TAUV(ig,:,:,:) = TAUV_1pt(:,:,:)
    207207
    208         COSBVP(ig,:,:,:)= COSBVP_1pt(:,:,:)
    209         WBARVP(ig,:,:,:)= WBARVP_1pt(:,:,:)
     208        COSBVP(ig,:,:,:)= MAX(MIN(COSBVP_1pt(:,:,:),0.999999),1e-6)
     209        WBARVP(ig,:,:,:)= MAX(MIN(WBARVP_1pt(:,:,:),0.999999),1e-6)
    210210        DTAUVP(ig,:,:,:)= DTAUVP_1pt(:,:,:)
    211211        TAUVP(ig,:,:,:) = TAUVP_1pt(:,:,:)
Note: See TracChangeset for help on using the changeset viewer.