Ignore:
Timestamp:
07/22/14 16:01:29 (10 years ago)
Author:
ymipsl
Message:

One call for initialize physics from dynamico.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/physics_lmdz_generic.f90

    r243 r246  
    108108      ENDDO 
    109109    ENDDO 
     110 
     111 
     112    CALL initialize_unstructured_physics(nbp_phys,llm, comm_icosa, mpi_size,distrib,            & 
     113                                         day_length,start_day,itau_physics*dt,                  & 
     114                                         latfi,lonfi,airefi,radius,g, gas_constant/mu, cpp,     & 
     115                                         preff, ap, bp)                                          
     116     
     117     
     118     
     119!    CALL init_phys_lmdz(128,97,llm, comm_icosa, mpi_size, distrib) 
    110120     
    111121    CALL init_gcm_lmdz(nbp_phys,mpi_size,distrib,latfi,lonfi,airefi) 
    112     CALL iniphysiq(llm,day_length,start_day,itau_physics*dt,     & 
    113                    latfi,lonfi,airefi,radius,g, gas_constant/mu, cpp,     & 
    114                    ap, bp) 
     122!    CALL init_phys_lmdz(128,97,llm, comm_icosa, mpi_size, distrib) 
     123!    CALL iniphysiq(llm,day_length,start_day,itau_physics*dt,     & 
     124!                   latfi,lonfi,airefi,radius,g, gas_constant/mu, cpp,     & 
     125!                   ap, bp) 
    115126     
    116127     
Note: See TracChangeset for help on using the changeset viewer.