Changeset 1047 for trunk/LMDZ.MARS/libf/phymars/nirco2abs.F
- Timestamp:
- Sep 23, 2013, 9:56:47 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/nirco2abs.F
r1036 r1047 3 3 4 4 use tracer_mod, only: igcm_co2, igcm_o 5 use comdiurn_h, only: sinlon, coslon, sinlat, coslat 5 6 IMPLICIT NONE 6 7 c======================================================================= … … 30 31 c nlayer Number of layer 31 32 c dist_sol sun-Mars distance (AU) 32 c mu0(ngrid mx)33 c fract(ngrid mx)day fraction of the time interval33 c mu0(ngrid) 34 c fract(ngrid) day fraction of the time interval 34 35 c declin latitude of subslar point 35 36 c … … 45 46 c ------------------ 46 47 c 47 #include "dimensions.h"48 #include "dimphys.h"48 !#include "dimensions.h" 49 !#include "dimphys.h" 49 50 #include "comcstfi.h" 50 51 #include "callkeys.h" 51 #include "comdiurn.h"52 !#include "comdiurn.h" 52 53 #include "nirdata.h" 53 54 !#include "tracer.h" … … 62 63 integer,intent(in) :: nq ! number of tracers 63 64 real,intent(in) :: pq(ngrid,nlayer,nq) ! tracers 64 real,intent(in) :: mu0(ngrid mx) ! solar angle65 real,intent(in) :: fract(ngrid mx) ! day fraction of the time interval65 real,intent(in) :: mu0(ngrid) ! solar angle 66 real,intent(in) :: fract(ngrid) ! day fraction of the time interval 66 67 real,intent(in) :: declin ! latitude of sub-solar point 67 68 … … 71 72 c ----------------- 72 73 INTEGER l,ig, n, nstep,i 73 REAL co2heat0, zmu(ngrid mx)74 REAL co2heat0, zmu(ngrid) 74 75 75 76 c special diurnal=F 76 real mu0_int(ngrid mx),fract_int(ngridmx),zday_int77 real mu0_int(ngrid),fract_int(ngrid),zday_int 77 78 real ztim1,ztim2,ztim3,step 78 79
Note: See TracChangeset
for help on using the changeset viewer.