Ignore:
Timestamp:
Apr 17, 2025, 9:45:14 AM (2 months ago)
Author:
emillour
Message:

Mars PCM:
Turn "callkeys.h" into module "callkeys_mod.F90"
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/yamada4.F

    r2823 r3726  
    612612!     print*,'OKFIN'
    613613      first=.false.
    614       return
     614
    615615      end
    616616      SUBROUTINE vdif_q2(timestep,gravity,rconst,ngrid,nlay
    617617     & ,plev,temp,kmy,q2)
     618!.......................................................................
    618619      IMPLICIT NONE
    619 !.......................................................................
    620 ! MARS
    621       include "callkeys.h"
    622620!.......................................................................
    623621!
    … …  
    694692      SUBROUTINE vdif_q2e(timestep,gravity,rconst,ngrid,nlay,
    695693     &   plev,temp,kmy,q2)
     694!.......................................................................
    696695      IMPLICIT NONE
    697 !.......................................................................
    698 ! MARS
    699       include "callkeys.h"
    700696!.......................................................................
    701697!
    … …  
    753749      enddo
    754750
    755       return
     751
    756752      end
Note: See TracChangeset for help on using the changeset viewer.