Changeset 879 for LMDZ4/trunk/libf/phylmd/iophy.F90

Timestamp:

Jan 17, 2008, 10:20:32 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Suite de la bascule vers une physique avec thermiques, nouvelle convection, poche froide ...
LF

File:

• LMDZ4/trunk/libf/phylmd/iophy.F90 (modified) (5 diffs)

LMDZ4/trunk/libf/phylmd/iophy.F90

@@ +1 @@
+!
+! $Header$
+!
 module iophy
   
@@ -22 +25 @@
   include 'dimensions.h'   
     real,dimension(iim),intent(in) :: lon
-    real,dimension(jjm+1),intent(in) :: lat
+    real,dimension(jjm+1-1/iim),intent(in) :: lat
 
     INTEGER,DIMENSION(2) :: ddid
@@ -33 +36 @@
 
 !$OMP MASTER  
-    allocate(io_lat(jjm+1))
+    allocate(io_lat(jjm+1-1/iim))
     io_lat(:)=lat(:)
     allocate(io_lon(iim))
@@ -45 +48 @@
     
     ddid=(/ 1,2 /)
-    dsg=(/ iim, jjm+1 /)
+    dsg=(/ iim, jjm+1-1/iim /)
     dsl=(/ iim, jj_nb /)
     dpf=(/ 1,jj_begin /)
@@ -167 +170 @@
 !         enddo
 !         
-!         if (jjphy_end==jjm+1) then
+!         if (jjphy_end==jjm+1-1/iim) then
 !             field_dyn(:,jjphy_nb,l)=field_phy(klon_mpi,l)
 !         else