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/nirco2abs.F

    r1036 r1047  
    33                                                   
    44       use tracer_mod, only: igcm_co2, igcm_o
     5       use comdiurn_h, only: sinlon, coslon, sinlat, coslat
    56       IMPLICIT NONE
    67c=======================================================================
     
    3031c   nlayer                Number of layer
    3132c   dist_sol              sun-Mars distance (AU)
    32 c   mu0(ngridmx)         
    33 c   fract(ngridmx)        day fraction of the time interval
     33c   mu0(ngrid)         
     34c   fract(ngrid        day fraction of the time interval
    3435c   declin                latitude of subslar point
    3536c
     
    4546c    ------------------
    4647c
    47 #include "dimensions.h"
    48 #include "dimphys.h"
     48!#include "dimensions.h"
     49!#include "dimphys.h"
    4950#include "comcstfi.h"
    5051#include "callkeys.h"
    51 #include "comdiurn.h"
     52!#include "comdiurn.h"
    5253#include "nirdata.h"
    5354!#include "tracer.h"
     
    6263      integer,intent(in) :: nq ! number of tracers
    6364      real,intent(in) :: pq(ngrid,nlayer,nq) ! tracers
    64       real,intent(in) :: mu0(ngridmx) ! solar angle
    65       real,intent(in) :: fract(ngridmx) ! day fraction of the time interval
     65      real,intent(in) :: mu0(ngrid) ! solar angle
     66      real,intent(in) :: fract(ngrid) ! day fraction of the time interval
    6667      real,intent(in) :: declin ! latitude of sub-solar point
    6768     
     
    7172c    -----------------
    7273      INTEGER l,ig, n, nstep,i
    73       REAL co2heat0, zmu(ngridmx)
     74      REAL co2heat0, zmu(ngrid)
    7475
    7576c     special diurnal=F
    76       real mu0_int(ngridmx),fract_int(ngridmx),zday_int
     77      real mu0_int(ngrid),fract_int(ngrid),zday_int
    7778      real ztim1,ztim2,ztim3,step
    7879
Note: See TracChangeset for help on using the changeset viewer.