Ignore:
Timestamp:
Aug 24, 2015, 9:26:48 AM (9 years ago)
Author:
Ehouarn Millour
Message:

Make iniphysiq a module.
Fix call to iniphysiq in lmdz1d (missing arguments and arrays of wrong sizes).
EM

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dynlonlat_phylonlat/phymar/iniphysiq_mod.F90

    r2346 r2347  
    22! $Id: iniphysiq.F 1403 2010-07-01 09:02:53Z fairhead $
    33!
     4MODULE iniphysiq_mod
     5
     6CONTAINS
     7
    48SUBROUTINE iniphysiq(iim,jjm,nlayer,punjours, pdayref,ptimestep, &
    59                     rlatu,rlatv,rlonu,rlonv,aire,cu,cv,         &
    … …  
    186190!!$OMP END PARALLEL
    187191
    188       END
     192END SUBROUTINE iniphysiq
     193
     194END MODULE iniphysiq_mod
Note: See TracChangeset for help on using the changeset viewer.