Changeset 295 for codes/icosagcm/trunk/src/time.f90

Timestamp:

10/31/14 14:52:01 (10 years ago)

Author:

ymipsl

Message:

Merging OpenMP parallisme mode : by subdomain and on vertical level.
This feature is actually experimental but may be retro-compatible with the last method based only on subdomain

YM

File:

• codes/icosagcm/trunk/src/time.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/time.f90

@@ -19 +19 @@
   INTEGER,SAVE    :: itau_out, itau_adv, itau_dissip, itau_physics, itaumax
 !$OMP THREADPRIVATE(itau_out, itau_adv, itau_dissip, itau_physics, itaumax)  
+
+  INTEGER,SAVE    :: itau_check_conserv
+!$OMP THREADPRIVATE(itau_check_conserv)  
   
   INTEGER,SAVE :: day_step,ndays
@@ -38 +41 @@
 
   PUBLIC create_time_counter_header, update_time_counter, close_time_counter, init_time,  &
-         dt, write_period, itau_out, itau_adv, itau_dissip, itau_physics, itaumax, & 
-day_step,ndays,jD_ref,jH_ref,day_ini,day_end,annee_ref,day_ref,an, mois, jour,heure, &
-            calend,time_style,itau0
+         dt, write_period, itau_out, itau_adv, itau_dissip, itau_physics, itaumax,  &
+         itau_check_conserv,  & 
+         day_step,ndays,jD_ref,jH_ref,day_ini,day_end,annee_ref,day_ref, &
+         an, mois, jour,heure, calend,time_style,itau0
 
 
@@ -82 +86 @@
     itau_adv=1
     CALL getin('itau_adv',itau_adv)
-    
+
     itau_dissip=1
     CALL getin('itau_dissip',itau_dissip)
-    
+
     itau_physics=1
     CALL getin('itau_physics',itau_physics)
-    
+
+    itau_check_conserv=HUGE(itau_check_conserv)
+    CALL getin('itau_check_conserv',itau_check_conserv)
+
     IF (is_mpi_root)  THEN
        PRINT *, 'itaumax=',itaumax