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/iophy.F90

    r2346 r2350  
    7676   
    7777!$OMP MASTER 
    78     ALLOCATE(io_lat(nbp_lat-1/(nbp_lon*(nbp_lat-1))))
    79     io_lat(1)=rlat_glo(1)
    80     io_lat(nbp_lat-1/(nbp_lon*(nbp_lat-1)))=rlat_glo(klon_glo)
    81     IF ((nbp_lon*nbp_lat) > 1) then
     78    ALLOCATE(io_lat(nbp_lat))
     79    IF (klon_glo == 1) THEN
     80      io_lat(1)=rlat_glo(1)
     81    ELSE
     82      io_lat(1)=rlat_glo(1)
     83      io_lat(nbp_lat)=rlat_glo(klon_glo)
    8284      DO i=2,nbp_lat-1
    8385        io_lat(i)=rlat_glo(2+(i-2)*nbp_lon)
Note: See TracChangeset for help on using the changeset viewer.