Ignore:
Timestamp:
May 20, 2016, 8:16:32 AM (9 years ago)
Author:
emillour
Message:

All GCMS:

  • correction wrt previous commit: inigeom is also the name of a routine

in dyn3d_common! To avoid confusion rename inigeom (in dynphy_lonlat)
inigeomphy.

  • cosmetic cleanup in leapfrog ('fake' calls to init_phys_lmdz,

which no longer exists, removed).
EM

Location:
trunk/LMDZ.COMMON/libf/dynphy_lonlat
Files:
2 edited
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/inigeomphy_mod.F90

    r1563 r1564  
    1 MODULE inigeom_mod
     1MODULE inigeomphy_mod
    22
    33CONTAINS
    44
    5 SUBROUTINE inigeom(iim,jjm,nlayer, &
     5SUBROUTINE inigeomphy(iim,jjm,nlayer, &
    66                     nbp, communicator, &
    77                     rlatu,rlatv,rlonu,rlonv,aire,cu,cv)
    … …  
    227227
    228228
    229 END SUBROUTINE inigeom
    230 
    231 END MODULE inigeom_mod
     229END SUBROUTINE inigeomphy
     230
     231END MODULE inigeomphy_mod

  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan/iniphysiq_mod.F90

    r1563 r1564  
    1515  USE temps_mod, ONLY: annee_ref, day_ref, day_ini, day_end
    1616  USE time_phylmdz_mod, ONLY: init_time
     17  USE inigeomphy_mod, ONLY: inigeomphy
     18  USE control_mod, ONLY: nday
    1719  IMPLICIT NONE
    1820
    … …  
    5254  !------------------------------------------
    5355  ! --> initialize physics distribution, global fields and geometry
    54   CALL inigeom(ii,jj,nlayer, &
     56  CALL inigeomphy(ii,jj,nlayer, &
    5557               nbp, communicator, &
    5658               rlatudyn,rlatvdyn, &

  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/iniphysiq_mod.F90

    r1563 r1564  
    1515  USE temps_mod, ONLY: annee_ref, day_ref, day_ini, day_end
    1616  USE time_phylmdz_mod, ONLY: init_time
     17  USE inigeomphy_mod, ONLY: inigeomphy
    1718  IMPLICIT NONE
    1819
    … …  
    5253  !------------------------------------------
    5354  ! --> initialize physics distribution, global fields and geometry
    54   CALL inigeom(ii,jj,nlayer, &
     55  CALL inigeomphy(ii,jj,nlayer, &
    5556               nbp, communicator, &
    5657               rlatudyn,rlatvdyn, &
Note: See TracChangeset for help on using the changeset viewer.