Changeset 3656 for trunk


Ignore:
Timestamp:
Feb 27, 2025, 2:53:06 PM (5 months ago)
Author:
emoisan
Message:

Titan physics:
Remove "OLD_COMPILO" pre-compiling flag.
EMo

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

Legend:

Unmodified
Added
Removed

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

    r3318 r3656  
    22
    33SUBROUTINE calmufi(dt, plev, zlev, play, zlay, g3d, temp, pq, zdqfi, zdq)
    4 
    5 ! Old compilers do not handle modern Fortran in microphysics
    6 #ifndef OLD_COMPILO
    74
    85  !! Interface subroutine to YAMMS model for Titan LMDZ GCM.
    … …  
    197194  zdq(:,:,:) = zdq(:,:,:) / dt
    198195
    199 #endif
    200 
    201196END SUBROUTINE calmufi

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

    r3090 r3656  
    11subroutine inimufi(ptimestep)
    2 
    3 #ifndef OLD_COMPILO
    42
    53  use mmp_gcm
    … …  
    112110   ENDIF
    113111   
    114 #endif
    115 
    116112end subroutine inimufi
Note: See TracChangeset for help on using the changeset viewer.