/[lmdze]/trunk/dyn3d/gcm.f
ViewVC logotype

Diff of /trunk/dyn3d/gcm.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 9  PROGRAM gcm Line 9  PROGRAM gcm
9    ! l'advection de "q", en modifiant "iadv" dans "traceur.def".    ! l'advection de "q", en modifiant "iadv" dans "traceur.def".
10    
11    use comconst, only: daysec, dtvr, iniconst    use comconst, only: daysec, dtvr, iniconst
12    use comgeom, only:  aire_2d, cu_2d, cv_2d, inigeom    use comgeom, only:  aire_2d, inigeom
13    use comgeomphy, only: airephy, cuphy, cvphy, rlatd, rlond    use comgeomphy, only: airephy
14    use conf_gcm_m, only: day_step, iperiod, iecri, iphysiq, nday, periodav, &    use conf_gcm_m, only: day_step, iperiod, iecri, iphysiq, nday, periodav, &
15         conf_gcm, iflag_phys         conf_gcm, iflag_phys
16    use conf_guide_m, only: conf_guide    use conf_guide_m, only: conf_guide
17    use dimens_m, only: iim, jjm, llm, nqmx    use dimens_m, only: iim, jjm, llm, nqmx
   use dimphy, only: klon  
18    USE disvert_m, ONLY : disvert    USE disvert_m, ONLY : disvert
19    use dynetat0_m, only: rlatu, rlonv, dynetat0, day_ini    use dynetat0_m, only: dynetat0, day_ini
20    use dynredem0_m, only: dynredem0    use dynredem0_m, only: dynredem0
21    use grid_change, only: dyn_phy, init_dyn_phy    use grid_change, only: dyn_phy, init_dyn_phy
22    use histclo_m, only: histclo    use histclo_m, only: histclo
# Line 47  PROGRAM gcm Line 46  PROGRAM gcm
46    REAL masse(iim + 1, jjm + 1, llm) ! masse d'air    REAL masse(iim + 1, jjm + 1, llm) ! masse d'air
47    REAL phis(iim + 1, jjm + 1) ! g\'eopotentiel au sol    REAL phis(iim + 1, jjm + 1) ! g\'eopotentiel au sol
48    
   ! Calendrier :  
49    LOGICAL:: true_calendar = .false. ! default value    LOGICAL:: true_calendar = .false. ! default value
   
   logical mask_v(iim + 1, jjm)  
   ! (mask for points in the "v" grid, first index is for longitude,  
   ! second index is for latitude)  
   
50    integer i    integer i
51    
52    namelist /main_nml/true_calendar    namelist /main_nml/true_calendar
# Line 87  PROGRAM gcm Line 80  PROGRAM gcm
80    
81    ! Initialisation de la physique :    ! Initialisation de la physique :
82    IF (iflag_phys == 1) THEN    IF (iflag_phys == 1) THEN
      rlatd(1)=rlatu(1)  
      rlatd(2:klon-1) = pack(spread(rlatu(2:jjm), 1, iim), .true.)  
      rlatd(klon)= rlatu(jjm + 1)  
   
      rlond(1)=0.  
      rlond(2:klon-1) = pack(spread(rlonv(:iim), 2, jjm - 1), .true.)  
      rlond(klon)= 0.  
   
      cuphy = pack(cu_2d, dyn_phy)  
   
      ! Construct a mask for points in the "v" grid:  
      mask_v = .true.  
      mask_v(2:, 1) = .false.  
      mask_v(iim + 1, 2:) = .false.  
   
      cvphy(:klon - 1) = pack(cv_2d, mask_v)  
      cvphy(klon) = cv_2d(1, jjm)  
      ! (that value of "cv_2d" is used twice in "cvphy")  
   
83       airephy = pack(aire_2d, dyn_phy)       airephy = pack(aire_2d, dyn_phy)
84       CALL suphec       CALL suphec
85       call yoethf       call yoethf
Legend:
Removed from v.157  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21