Ignore:
Timestamp:
Sep 23, 2013, 9:56:47 AM (11 years ago)
Author:
emillour
Message:

Mars GCM:

  • IMPORTANT CHANGE: Removed all reference/use of ngridmx (dimphys.h) in routines (necessary prerequisite to using parallel dynamics); in most cases this just means adding 'ngrid' as routine argument, and making local saved variables allocatable (and allocated at first call). In the process, had to convert many *.h files to equivalent modules: yomaer.h => yomaer_h.F90 , surfdat.h => surfdat_h.F90 , comsaison.h => comsaison_h.F90 , yomlw.h => yomlw_h.F90 , comdiurn.h => comdiurn_h.F90 , dimradmars.h => dimradmars_mod.F90 , comgeomfi.h => comgeomfi_h.F90, comsoil.h => comsoil_h.F90 , slope.h => slope_mod.F90
  • Also updated EOF routines, everything is now in eofdump_mod.F90
  • Removed unused routine lectfux.F (in dyn3d)

EM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r38 r1047  
    11      SUBROUTINE flusv(KDLON,nsf,n,omega,g,tau,emis,bh,bsol,fah,fdh)
     2      use dimradmars_mod, only: ndlo2, ndlon
    23      IMPLICIT NONE
    34c.......................................................................
    … …  
    3738#include "dimensions.h"
    3839#include "dimphys.h"
    39 #include "dimradmars.h"
     40!#include "dimradmars.h"
    4041c.......................................................................
    4142c  declaration des arguments
    … …  
    271272
    272273      SUBROUTINE sys3v(KDLON,n,a,b,d,e,y)
     274      use dimradmars_mod, only: ndlon, ndlo2
    273275      IMPLICIT NONE
    274276c.......................................................................
    … …  
    293295#include "dimensions.h"
    294296#include "dimphys.h"
    295 #include "dimradmars.h"
     297!#include "dimradmars.h"
    296298c.......................................................................
    297299c  declaration des arguments
Note: See TracChangeset for help on using the changeset viewer.