Changeset 965 for trunk/LMDZ.COMMON/libf/dyn3dpar

Timestamp:

May 22, 2013, 9:10:28 AM (12 years ago)

Author:

emillour

Message:

Common dynamics and generic/universal GCM:

• LMDZ.COMMON: minor bug fix on the computation of physics mesh area in gcm.F
• LMDZ.UNIVERSAL: missing clean initialization of tab_cntrl(:) array in phyredem.F90
• LMDZ.GENERIC: minor bug fix in hydrol.F90, only output runoff if it is used. Update output routines so that all outputs files (stats, diagfi.nc, diagsoil.nc, diagspecIR.nc and diagspecVI.nc) can be generated when running LMDZ.UNIVERSAL in MPI mode.

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F

@@ -466 +466 @@
          zcufi(ngridmx) = cu(ip1jm+1)
          zcvfi(ngridmx) = cv(ip1jm-iim)
+
+         ! build airefi(), mesh area on physics grid
          CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,aire,airefi)
+         ! Poles are single points on physics grid
+         airefi(1)=airefi(1)*iim
+         airefi(ngridmx)=airefi(ngridmx)*iim
+
 ! Physics
 #ifdef CPP_PHYS