Changeset 428 for codes/icosagcm/trunk/src/etat0_heldsz.f90

Timestamp:

06/14/16 21:54:26 (8 years ago)

Author:

dubos

Message:

theta-related cleanup

File:

• codes/icosagcm/trunk/src/etat0_heldsz.f90 (modified) (7 diffs)

codes/icosagcm/trunk/src/etat0_heldsz.f90

@@ -23 +23 @@
 
   SUBROUTINE test_etat0_heldsz
-    USE icosa
     USE kinetic_mod
-    IMPLICIT NONE
     TYPE(t_field),POINTER :: f_ps(:)
     TYPE(t_field),POINTER :: f_phis(:)
@@ -50 +48 @@
 
   SUBROUTINE etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
-    USE icosa
     USE theta2theta_rhodz_mod
     IMPLICIT NONE
@@ -99 +96 @@
 
   SUBROUTINE init_Teq
-    USE icosa
     USE disvert_mod, ONLY : ap,bp
-    IMPLICIT NONE
     REAL(rstd),POINTER :: clat(:) 
     REAL(rstd),POINTER :: theta_eq(:,:) 
@@ -159 +154 @@
 
   SUBROUTINE compute_Teq(lat,theta_eq)
-    USE icosa
     USE disvert_mod
-    IMPLICIT NONE  
     REAL(rstd),INTENT(IN) :: lat(iim*jjm)
     REAL(rstd),INTENT(OUT) :: theta_eq(iim*jjm,llm) 
@@ -184 +177 @@
 
   SUBROUTINE compute_etat0_heldsz(theta_eq, theta)
-    USE icosa
     USE disvert_mod
-    USE pression_mod
-    USE exner_mod
-    USE geopotential_mod
-    USE theta2theta_rhodz_mod
-    IMPLICIT NONE  
     REAL(rstd),INTENT(IN) :: theta_eq(iim*jjm,llm) 
     REAL(rstd),INTENT(OUT) :: theta(iim*jjm,llm) 
@@ -211 +198 @@
 
   SUBROUTINE held_suarez(f_ps,f_theta_rhodz,f_u) 
-    USE icosa
-    IMPLICIT NONE
     TYPE(t_field),POINTER :: f_theta_rhodz(:)
     TYPE(t_field),POINTER :: f_u(:)
@@ -238 +223 @@
 
   SUBROUTINE compute_heldsz(ps,theta_eq,lat, theta_rhodz,u, theta) 
-    USE icosa
     USE theta2theta_rhodz_mod
-    IMPLICIT NONE
     REAL(rstd),INTENT(IN)    :: ps(iim*jjm) 
     REAL(rstd),INTENT(IN)    :: theta_eq(iim*jjm,llm)