Changeset 17 for codes/icosagcm/trunk/src/caldyn_gcm.f90

Timestamp:

07/16/12 10:24:35 (12 years ago)

Author:

ymipsl

Message:

Merge advection scheme from sarvesh in standard version

YM

File:

• codes/icosagcm/trunk/src/caldyn_gcm.f90 (modified) (4 diffs)

codes/icosagcm/trunk/src/caldyn_gcm.f90

@@ -4 +4 @@
   USE transfert_mod
 
+  PRIVATE 
   TYPE(t_field),POINTER :: f_out(:)
   REAL(rstd),POINTER :: out(:,:)
@@ -12 +13 @@
  
   INTEGER :: itau_out
-  
+
+  PUBLIC init_caldyn, caldyn
+
 CONTAINS
   
@@ -19 +22 @@
   IMPLICIT NONE
     REAL(rstd),INTENT(IN) :: dt
-    REAL(rstd) :: write_period
+    INTEGER :: write_period
+
     CALL allocate_caldyn
-
     CALL getin('write_period',write_period)
     
     itau_out=INT(write_period/dt)
+    
+    CALL allocate_caldyn
   
   END SUBROUTINE init_caldyn
@@ -34 +39 @@
   USE metric
   IMPLICIT NONE
-    INTEGER :: ind,i,j
 
     CALL allocate_field(f_out,field_t,type_real,llm)