Changeset 388 for codes/icosagcm/trunk/src/geometry.f90

Timestamp:

05/30/16 13:27:18 (8 years ago)

Author:

ymipsl

Message:

• Add dcmip2016 cyclone etat0 estcase
• Add fisrt guess of dcmip2016 etat0 supercell testcase

YM

File:

• codes/icosagcm/trunk/src/geometry.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/geometry.f90

@@ -274 +274 @@
       CALL swap_dimensions(ind)
       CALL swap_geometry(ind)
+      xyz_i(:,1) = 0 ; xyz_i(:,2) = 0 ;  xyz_i(:,3) = 1
+      
       DO j=jj_begin,jj_end
         DO i=ii_begin,ii_end
@@ -435 +437 @@
       CALL swap_dimensions(ind)
       CALL swap_geometry(ind)
+      lon_i(:)=0 ; lat_i(:)=0
+      lon_e(:)=0 ; lat_e(:)=0
       DO j=jj_begin-1,jj_end+1
         DO i=ii_begin-1,ii_end+1