Ignore:
Timestamp:
Aug 25, 2015, 1:40:19 PM (9 years ago)
Author:
Ehouarn Millour
Message:

Corrections for 1D case where nbp_lon=nbp_lat=1.
EM + MPL

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/aaam_bud.F90

    r2346 r2350  
    66
    77  USE dimphy
    8   USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
     8  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo
    99  IMPLICIT NONE
    1010  ! ======================================================================
     
    127127  hadley = 1.E18
    128128  hadday = 1.E18*24.*3600.
    129   dlat = xpi/real(nbp_lat-1)
     129  IF(klon_glo.EQ.1) THEN
     130    dlat = xpi
     131  ELSE
     132    dlat = xpi/real(nbp_lat-1)
     133  ENDIF
    130134  dlon = 2.*xpi/real(nbp_lon)
    131135
Note: See TracChangeset for help on using the changeset viewer.