Changeset 965 for trunk/LMDZ.COMMON/libf


Ignore:
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

Location:
trunk/LMDZ.COMMON/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dyn3d/gcm.F

    r841 r965  
    451451         zcufi(ngridmx) = cu(ip1jm+1)
    452452         zcvfi(ngridmx) = cv(ip1jm-iim)
     453
     454         ! build airefi(), mesh area on physics grid
    453455         CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,aire,airefi)
     456         ! Poles are single points on physics grid
     457         airefi(1)=airefi(1)*iim
     458         airefi(ngridmx)=airefi(ngridmx)*iim
    454459
    455460! Initialisation de la physique: pose probleme quand on tourne

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

    r841 r965  
    466466         zcufi(ngridmx) = cu(ip1jm+1)
    467467         zcvfi(ngridmx) = cv(ip1jm-iim)
     468
     469         ! build airefi(), mesh area on physics grid
    468470         CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,aire,airefi)
     471         ! Poles are single points on physics grid
     472         airefi(1)=airefi(1)*iim
     473         airefi(ngridmx)=airefi(ngridmx)*iim
     474
    469475! Physics
    470476#ifdef CPP_PHYS
Note: See TracChangeset for help on using the changeset viewer.