Changeset 932 for LMDZ4/trunk/libf

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:

• LMDZ4/trunk/libf/phylmd/phys_output_mod.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/phys_output_mod.F90

@@ -1 @@
-!
-! $Header$
-!
 ! Abderrahmane 12 2007
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -29 +26 @@
 !                 entre [lonmin_reg,lonmax_reg] et [latmin_reg,latmax_reg]
 
-  logical, dimension(nfiles), save  :: ok_reglim         = (/ .false., .true., .true., .false. /) 
+  logical, dimension(nfiles), save  :: ok_reglim         = (/ .false., .false., .false., .false. /) 
   real, dimension(nfiles), save     :: lonmin_reg        = (/ 0., -45., 0., 0. /)
   real, dimension(nfiles), save     :: lonmax_reg        = (/ 90., 45., 90., 90. /)
@@ -390 +387 @@
         do j=1,jjmp1-1
             print*,'io_lat(j)=',io_lat(j)
-            if (io_lat(j).ge.latmin_reg(iff)) jmax_ins=j
+            if (io_lat(j).ge.latmin_reg(iff)) jmax_ins=j+1
             if (io_lat(j).ge.latmax_reg(iff)) jmin_ins=j
         enddo