Changeset 81

Timestamp:

08/03/12 02:13:15 (12 years ago)

Author:

ymipsl

Message:

Add simplify physics for dcmip testcase

YM

Location:

codes/icosagcm/trunk/src

Files:

• physics.f90 (added)
• physics_dcmip.f90 (added)
• timeloop_gcm.f90 (modified) (4 diffs)

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -10 +10 @@
   USE guided_mod
   USE advect_tracer_mod
+  USE physics_mod
   
   IMPLICIT NONE
@@ -98 +99 @@
   CALL init_guided(dt)
   CALL init_advect_tracer(dt)
+  CALL init_physics(dt)
   
   CALL etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
+  CALL transfert_request(f_q,req_i1) 
 
   DO it=0,itaumax
+
     PRINT *,"It No :",It,"   t :",dt*It
     IF (mod(it,itau_out)==0 ) THEN
       CALL writefield("q",f_q)
+      CALL update_time_counter(dt*it)
     ENDIF
     
@@ -110 +115 @@
     CALL caldyn(it,f_phis,f_ps,f_theta_rhodz,f_u, f_dps, f_dtheta_rhodz, f_du)
     CALL advect_tracer(f_ps,f_u,f_q)
-
+    CALL physics(f_phis, f_ps, f_theta_rhodz, f_u, f_q)
     
     SELECT CASE (TRIM(scheme))
@@ -132 +137 @@
         
     END SELECT
-
+    
  ENDDO