Changeset 1431 for trunk/LMDZ.MARS/libf/dynlonlat_phylonlat

Timestamp:

May 28, 2015, 10:36:35 AM (10 years ago)

Author:

aslmd

Message:

LMDZ.MARS -- commented redundant call to comgeomphy and corrected call to areas in moldiff_red

Location:

trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars

Files:

• iniphysiq.F90 (modified) (3 diffs)
• newstart.F (modified) (2 diffs)
• start2archive.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/iniphysiq.F90

@@ -11 +11 @@
                                klon_mpi_begin ! start indes of columns (on local mpi grid)
 
-use comgeomphy, only : initcomgeomphy, &
-                       airephy, & ! physics grid area (m2)
-                       cuphy, & ! cu coeff. (u_covariant = cu * u)
-                       cvphy, & ! cv coeff. (v_covariant = cv * v)
-                       rlond, & ! longitudes
-                       rlatd ! latitudes
+!use comgeomphy, only : initcomgeomphy, &
+!                       airephy, & ! physics grid area (m2)
+!                       cuphy, & ! cu coeff. (u_covariant = cu * u)
+!                       cvphy, & ! cv coeff. (v_covariant = cv * v)
+!                       rlond, & ! longitudes
+!                       rlatd ! latitudes
 use infotrac, only : nqtot ! number of advected tracers
 use comgeomfi_h, only: ini_fillgeom
@@ -116 +116 @@
 
 
-!$OMP PARALLEL 
-! Now generate local lon/lat/cu/cv/area arrays
-call initcomgeomphy
-
-!!!!$OMP PARALLEL PRIVATE(ibegin,iend) 
-!!!$OMP+         SHARED(parea,pcu,pcv,plon,plat)
-      
-offset=klon_mpi_begin-1
-airephy(1:klon_omp)=airefi(offset+klon_omp_begin:offset+klon_omp_end)
-cuphy(1:klon_omp)=cufi(offset+klon_omp_begin:offset+klon_omp_end)
-cvphy(1:klon_omp)=cvfi(offset+klon_omp_begin:offset+klon_omp_end)
-rlond(1:klon_omp)=lonfi(offset+klon_omp_begin:offset+klon_omp_end)
-rlatd(1:klon_omp)=latfi(offset+klon_omp_begin:offset+klon_omp_end)
+!!$OMP PARALLEL 
+!! Now generate local lon/lat/cu/cv/area arrays
+!call initcomgeomphy
+!
+!!!!!$OMP PARALLEL PRIVATE(ibegin,iend) 
+!!!!$OMP+         SHARED(parea,pcu,pcv,plon,plat)
+! 
+!offset=klon_mpi_begin-1
+!airephy(1:klon_omp)=airefi(offset+klon_omp_begin:offset+klon_omp_end)
+!cuphy(1:klon_omp)=cufi(offset+klon_omp_begin:offset+klon_omp_end)
+!cvphy(1:klon_omp)=cvfi(offset+klon_omp_begin:offset+klon_omp_end)
+!rlond(1:klon_omp)=lonfi(offset+klon_omp_begin:offset+klon_omp_end)
+!rlatd(1:klon_omp)=latfi(offset+klon_omp_begin:offset+klon_omp_end)
 
 ! copy some fundamental parameters to physics 
@@ -134 +134 @@
 call phys_state_var_init(klon_omp,nlayer,nqtot, &
                          punjours,ptimestep,prad,pg,pr,pcpp)
-call ini_fillgeom(klon_omp,rlatd,rlond,airephy)
+!call ini_fillgeom(klon_omp,rlatd,rlond,airephy)
 call conf_phys(klon_omp,nlayer,nqtot)
 

trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/newstart.F

@@ -29 +29 @@
       use phyredem, only: physdem0, physdem1
       use iostart, only: open_startphy
-      use comgeomphy, only: initcomgeomphy
+!      use comgeomphy, only: initcomgeomphy
 !      use planete_h
       use dimradmars_mod, only: tauscaling
@@ -182 +182 @@
 ! initialize "serial/parallel" related stuff
       CALL init_phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
-      call initcomgeomphy
+      !call initcomgeomphy
 
 ! Load tracer number and names:

trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/start2archive.F

@@ -23 +23 @@
       use surfdat_h, only: ini_surfdat_h, qsurf
       use comsoil_h, only: ini_comsoil_h
-      use comgeomphy, only: initcomgeomphy
+!      use comgeomphy, only: initcomgeomphy
       use filtreg_mod, only: inifilr
       use control_mod, only: planet_type
@@ -118 +118 @@
 ! initialize "serial/parallel" related stuff
       CALL init_phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
-      call initcomgeomphy
+      !call initcomgeomphy
       planet_type='mars'