Ignore:
Timestamp:
May 11, 2014, 5:41:20 PM (11 years ago)
Author:
aslmd
Message:

LMDZ.COMMON. correction to commit 1245 about zonal means. a correction to seq case. and modifications for parallel case (dyn3dpar)

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

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/dyn3dpar/calfis_p.F

    r1189 r1251  
    308308      ALLOCATE(zpk(klon,llm))
    309309
    310       if (flag_moyzon) call moyzon_init
     310      ! zonal means. horizontal dimension should be iip1
     311      if (flag_moyzon) call moyzon_init(iip1,llm,nqtot)
    311312
    312313c------------------------------------------------------------------
     
    735736        allocate(flxwfi_omp(klon,llm))
    736737
    737         if (flag_moyzon) call moyzon_init_omp(klon)
     738        if (flag_moyzon) call moyzon_init_omp(klon,llm,nqtot)
    738739
    739740        first_omp=.false.
  • trunk/LMDZ.COMMON/libf/dyn3dpar/moyzon_mod.F90

    r1126 r1251  
    3131
    3232!======================================================================
    33 SUBROUTINE moyzon_init
     33SUBROUTINE moyzon_init(klon,llm,nqtot)
    3434#ifdef CPP_PHYS
    35 ! This routine needs physics
    36 USE dimphy
    37 USE infotrac, only: nqtot
     35!! This routine needs physics
    3836IMPLICIT NONE
    39     INCLUDE "dimensions.h"
     37       INTEGER :: klon,llm,nqtot
    4038
    4139      ALLOCATE(zplevbar_mpi(klon,llm+1),zplaybar_mpi(klon,llm))
     
    4745
    4846!======================================================================
    49 SUBROUTINE moyzon_init_omp(nlon)
     47SUBROUTINE moyzon_init_omp(nlon,llm,nqtot)
    5048#ifdef CPP_PHYS
    51 ! This routine needs physics
    52 USE dimphy
    53 USE infotrac, only: nqtot
    5449IMPLICIT NONE
    55     INCLUDE "dimensions.h"
    5650
    57       INTEGER :: nlon
     51      INTEGER :: nlon,llm,nqtot
    5852
    5953      ALLOCATE(zplevbar(nlon,llm+1),zplaybar(nlon,llm))
Note: See TracChangeset for help on using the changeset viewer.