Ignore:
Timestamp:
Apr 3, 2014, 9:09:47 AM (11 years ago)
Author:
emillour
Message:

Generic model:
Major cleanup, in order to ease the use of LMDZ.GENERIC with (parallel) dynamics
in LMDZ.COMMON: (NB: this will break LMDZ.UNIVERSAL, which should be thrashed
in the near future)

  • Updated makegcm_* scripts (and makdim) and added the "-full" (to enforce full recomputation of the model) option
  • In dyn3d: converted control.h to module control_mod.F90 and converted iniadvtrac.F to module infotrac.F90
  • Added module mod_const_mpi.F90 in dyn3d (not used in serial mode)
  • Rearanged input/outputs routines everywhere to handle serial/MPI cases. physdem.F => phyredem.F90 , phyetat0.F => phyetat0.F90 ; all read/write routines for startfi files are gathered in module iostart.F90
  • added parallelism related routines init_phys_lmdz.F90, comgeomphy.F90, dimphy.F90, iniphysiq.F90, mod_grid_phy_lmdz.F90, mod_phys_lmdz_mpi_data.F90, mod_phys_lmdz_mpi_transfert.F90, mod_phys_lmdz_omp_data.F90, mod_phys_lmdz_omp_transfert.F90, mod_phys_lmdz_para.F90, mod_phys_lmdz_transfert_para.F90 in phymars and mod_const_mpi.F90 in dyn3d (for compliance with parallelism)
  • added created generic routines 'planetwide_maxval' and 'planetwide_minval', in module "planetwide_mod", that enable obtaining the max and min of a field over the whole planet. This should be further imroved with computation of means (possibly area weighed), etc.

EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/condense_cloud.F90

    r869 r1216  
    77
    88      use radinc_h, only : naerkind
    9       use gases_h
     9      use gases_h, only: gfrac, igas_co2
    1010      use radii_mod, only : co2_reffrad
    1111      use aerosol_mod, only : iaero_co2
    12       USE surfdat_h
    13       USE comgeomfi_h
    14       USE tracer_h
     12      USE surfdat_h, only: albedodat, albedice, emisice, emissiv
     13      USE comgeomfi_h, only: lati
     14      USE tracer_h, only: noms, rho_co2
    1515
    1616
    … …  
    453453!     --------------------------------------------------------------------
    454454      DO ig=1,ngrid
    455          IF(ig.GT.ngrid/2+1) THEN
    456             icap=2
     455         IF(lati(ig).LT.0.) THEN
     456            icap=2 ! Southern Hemisphere
    457457         ELSE
    458             icap=1
     458            icap=1 ! Nortnern hemisphere
    459459         ENDIF
    460460
Note: See TracChangeset for help on using the changeset viewer.