Changeset 2408 for LMDZ5/branches/testing/libf/phydev/phyaqua_mod.F90

Timestamp:

Dec 14, 2015, 11:43:09 AM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2298:2396 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phydev/phyaqua_mod.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phydev/phyaqua_mod.F90

@@ -8 +8 @@
 CONTAINS
 
-  SUBROUTINE iniaqua(nlon, latfi, lonfi, iflag_phys)
+  SUBROUTINE iniaqua(nlon, iflag_phys)
 
   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -15 +15 @@
   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-  USE phys_state_var_mod, ONLY: rlat, rlon, phys_state_var_init
+  USE phys_state_var_mod, ONLY: phys_state_var_init
   USE mod_phys_lmdz_para, ONLY: klon_omp
-  USE comgeomphy, ONLY: rlond, rlatd
   IMPLICIT NONE
       
   INTEGER,INTENT(IN) :: nlon,iflag_phys
-  REAL,INTENT(IN) :: lonfi(nlon),latfi(nlon)
-
-  ! local variables
-  REAL :: pi
-
-  ! initializations:
-  pi=2.*ASIN(1.)
 
   CALL phys_state_var_init()
-
-  rlat(1:klon_omp)=rlatd(1:klon_omp)*180./pi
-  rlon(1:klon_omp)=rlond(1:klon_omp)*180./pi