Changeset 2369 for trunk/LMDZ.TITAN/libf/phytitan
- Timestamp:
- Jun 11, 2020, 10:46:33 PM (4 years ago)
- Location:
- trunk/LMDZ.TITAN/libf/phytitan
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.TITAN/libf/phytitan/calmufi.F90
r2242 r2369 2 2 3 3 SUBROUTINE 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 4 8 !! Interface subroutine to YAMMS model for Titan LMDZ GCM. 5 9 !! … … 188 192 zdq(:,:,:) = zdq(:,:,:) / dt 189 193 194 #endif 195 190 196 END SUBROUTINE calmufi -
trunk/LMDZ.TITAN/libf/phytitan/inimufi.F90
r1984 r2369 1 1 subroutine inimufi(ptimestep) 2 3 #ifndef OLD_COMPILO 2 4 3 5 use mmp_gcm … … 88 90 ENDIF 89 91 92 #endif 93 90 94 end subroutine inimufi
Note: See TracChangeset
for help on using the changeset viewer.