Changeset 3797 for trunk/LMDZ.GENERIC


Ignore:
Timestamp:
Jun 5, 2025, 5:16:01 PM (13 days ago)
Author:
mturbet
Message:

additional corrrection for the new continuum routine

Location:
trunk/LMDZ.GENERIC/libf/phystd
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r3793 r3797  
    349349           !endif
    350350
     351           endif ! generic_continuum_database
     352           
    351353           DCONT = DCONT*dz(k)
    352 
    353         endif ! generic_continuum_database
    354354       
    355355        endif ! continuum

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

    r3793 r3797  
    363363           enddo
    364364
    365            DCONT = DCONT*dz(k)
    366 
    367         endif ! generic_continuum_database
     365          endif ! generic_continuum_database
     366         
     367          DCONT = DCONT*dz(k)
     368         
    368369        endif ! continuum
    369370       
Note: See TracChangeset for help on using the changeset viewer.