Ignore:
Timestamp:
Nov 29, 2023, 9:38:04 AM (13 months ago)
Author:
jbclement
Message:

Mars PCM:
Small "cosmetic" cleanings in some subroutines for the readability and "surfini.F" is transformed into "surfini_mod.F90" (explicit module interface + Fortran 90 format).
JBC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90

    r3130 r3142  
    7979real, dimension(1)                  :: wstar = 0.    ! Thermals vertical velocity
    8080
    81 ! Physical and dynamical tandencies (e.g. m.s-2, K/s, Pa/s)
     81! Physical and dynamical tendencies (e.g. m.s-2, K/s, Pa/s)
    8282real, dimension(nlayer)             :: du, dv, dtemp, dudyn, dvdyn, dtempdyn
    8383real, dimension(1)                  :: dpsurf
Note: See TracChangeset for help on using the changeset viewer.