Ignore:
Timestamp:
Apr 8, 2016, 8:44:10 AM (9 years ago)
Author:
emillour
Message:

Common dynamics:
Bug fix for definition of klon_glo when in 1D.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/phy_common/mod_grid_phy_lmdz.F90

    r1521 r1534  
    4141    nbp_lat=jjp1
    4242    nbp_lev=llm
    43     klon_glo=(iim*jjp1)-2*(iim-1)
     43   
     44    ! Ehouarn: handle 1D case:
     45    IF (nbp_lon*nbp_lat==1) THEN
     46      klon_glo=1
     47    ELSE   
     48      klon_glo=(nbp_lon*nbp_lat)-2*(nbp_lon-1)
     49    ENDIF
    4450 
    4551  END SUBROUTINE init_grid_phy_lmdz
Note: See TracChangeset for help on using the changeset viewer.