Changeset 266 for codes/icosagcm/trunk/src/physics.f90

Timestamp:

08/05/14 15:56:49 (10 years ago)

Author:

ymipsl

Message:

Synchronize trunk and Saturn branch.
Merge modification from Saturn branch to trunk

YM

File:

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

codes/icosagcm/trunk/src/physics.f90

@@ -51 +51 @@
   END SUBROUTINE init_physics
 
-  SUBROUTINE physics(it,jD_cur,jH_cur,f_phis, f_ps, f_theta_rhodz, f_ue, f_q)
+  SUBROUTINE physics(it,f_phis, f_ps, f_theta_rhodz, f_ue, f_q)
     USE icosa
     USE physics_interface_mod
@@ -58 +58 @@
     IMPLICIT NONE
     INTEGER, INTENT(IN)   :: it
-    REAL(rstd),INTENT(IN)::jD_cur,jH_cur
     TYPE(t_field),POINTER :: f_phis(:)
     TYPE(t_field),POINTER :: f_ps(:)