Changeset 932


Ignore:
Timestamp:
Mar 21, 2008, 11:50:57 AM (17 years ago)
Author:
lmdzadmin
Message:

Sorties globales par defaut et correction choix domaine en latitude AI/IM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/phys_output_mod.F90

    r929 r932  
    1 !
    2 ! $Header$
    3 !
    41! Abderrahmane 12 2007
    52!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     
    2926!                 entre [lonmin_reg,lonmax_reg] et [latmin_reg,latmax_reg]
    3027
    31   logical, dimension(nfiles), save  :: ok_reglim         = (/ .false., .true., .true., .false. /)
     28  logical, dimension(nfiles), save  :: ok_reglim         = (/ .false., .false., .false., .false. /)
    3229  real, dimension(nfiles), save     :: lonmin_reg        = (/ 0., -45., 0., 0. /)
    3330  real, dimension(nfiles), save     :: lonmax_reg        = (/ 90., 45., 90., 90. /)
     
    390387        do j=1,jjmp1-1
    391388            print*,'io_lat(j)=',io_lat(j)
    392             if (io_lat(j).ge.latmin_reg(iff)) jmax_ins=j
     389            if (io_lat(j).ge.latmin_reg(iff)) jmax_ins=j+1
    393390            if (io_lat(j).ge.latmax_reg(iff)) jmin_ins=j
    394391        enddo
Note: See TracChangeset for help on using the changeset viewer.