Changeset 2369 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
Jun 11, 2020, 10:46:33 PM (5 years ago)
Author:
jvatant
Message:

Titan GCM: Enable to switch off microphysics compiling for old compilo such as CICLAD, in this case just use -cpp OLD_COMPILO in your makelmdz_fcm

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

Legend:

Unmodified
Added
Removed

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

    r2242 r2369  
    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
     7
    48  !! Interface subroutine to YAMMS model for Titan LMDZ GCM.
    59  !!
    … …  
    188192  zdq(:,:,:) = zdq(:,:,:) / dt
    189193
     194#endif
     195
    190196END SUBROUTINE calmufi

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

    r1984 r2369  
    11subroutine inimufi(ptimestep)
     2
     3#ifndef OLD_COMPILO
    24
    35  use mmp_gcm
    … …  
    8890   ENDIF
    8991
     92#endif
     93
    9094end subroutine inimufi
Note: See TracChangeset for help on using the changeset viewer.