Changeset 1564
- Timestamp:
- May 20, 2016, 8:16:32 AM (9 years ago)
- Location:
- trunk
- Files:
-
- 9 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified trunk/DOC/chantiers/commit_importants.log ¶
r1549 r1564 1767 1767 - calfis_p.F: added computation of relative wind vorticity (input required 1768 1768 by Earth physics) 1769 1770 ********************** 1771 **** commit_v1563 **** 1772 ********************** 1773 1774 iniphysiq in all GCMs 1775 --------------------- 1776 1777 iniphysiq was performing two main tasks 1778 - one that is planet-independent i.e. setting the physics grid and geometry 1779 (we checked: the lines of code in phyxxx/iniphysiq_mod were doing 1780 the exact same things) 1781 - one that is planet-dependent i.e. time settings, planetary constants 1782 1783 now the planet-independent initialization is done by inigeomphy_mod 1784 which is in dynphy_lonlat and the planet-dependent initialization is done 1785 in the respective phyxxx folders 1786 1787 this commit is intended for interface lisibility and modular approach 1788 following the framework adopted by Ehouarn in the last commits 1789 it paves the path for a similar (and, now, easy) counterpart for mesoscale 1790 models -
TabularUnified trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.F ¶
r1549 r1564 211 211 real :: dtec 212 212 real :: ztetaec(ip1jmp1,llm) 213 214 c dummy: sinon cette routine n'est jamais compilee...215 if(1.eq.0) then216 #ifdef CPP_PHYS217 CALL init_phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))218 #endif219 endif220 213 221 214 if (nday>=0) then -
TabularUnified trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F ¶
r1549 r1564 222 222 LOGICAL :: ok_start_timer=.FALSE. 223 223 LOGICAL, SAVE :: firstcall=.TRUE. 224 225 c dummy: sinon cette routine n'est jamais compilee...226 if(1.eq.0) then227 #ifdef CPP_PHYS228 CALL init_phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))229 #endif230 endif231 224 232 225 c$OMP MASTER -
TabularUnified trunk/LMDZ.COMMON/libf/dynphy_lonlat/inigeomphy_mod.F90 ¶
r1563 r1564 1 MODULE inigeom _mod1 MODULE inigeomphy_mod 2 2 3 3 CONTAINS 4 4 5 SUBROUTINE inigeom (iim,jjm,nlayer, &5 SUBROUTINE inigeomphy(iim,jjm,nlayer, & 6 6 nbp, communicator, & 7 7 rlatu,rlatv,rlonu,rlonv,aire,cu,cv) … … 227 227 228 228 229 END SUBROUTINE inigeom 230 231 END MODULE inigeom _mod229 END SUBROUTINE inigeomphy 230 231 END MODULE inigeomphy_mod -
TabularUnified trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan/iniphysiq_mod.F90 ¶
r1563 r1564 15 15 USE temps_mod, ONLY: annee_ref, day_ref, day_ini, day_end 16 16 USE time_phylmdz_mod, ONLY: init_time 17 USE inigeomphy_mod, ONLY: inigeomphy 18 USE control_mod, ONLY: nday 17 19 IMPLICIT NONE 18 20 … … 52 54 !------------------------------------------ 53 55 ! --> initialize physics distribution, global fields and geometry 54 CALL inigeom (ii,jj,nlayer, &56 CALL inigeomphy(ii,jj,nlayer, & 55 57 nbp, communicator, & 56 58 rlatudyn,rlatvdyn, & -
TabularUnified trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/iniphysiq_mod.F90 ¶
r1563 r1564 15 15 USE temps_mod, ONLY: annee_ref, day_ref, day_ini, day_end 16 16 USE time_phylmdz_mod, ONLY: init_time 17 USE inigeomphy_mod, ONLY: inigeomphy 17 18 IMPLICIT NONE 18 19 … … 52 53 !------------------------------------------ 53 54 ! --> initialize physics distribution, global fields and geometry 54 CALL inigeom (ii,jj,nlayer, &55 CALL inigeomphy(ii,jj,nlayer, & 55 56 nbp, communicator, & 56 57 rlatudyn,rlatvdyn, & -
TabularUnified trunk/LMDZ.GENERIC/README ¶
r1549 r1564 1218 1218 == 06/05/2016 == EM 1219 1219 - turn physiq.F90 into module physiq_mod.F90 1220 1221 == 20/05/2016 == AS+EM 1222 - cleanup around iniphysiq: separate things between planet-independent 1223 initializations (now done by inigeomphy in dynphy_lonlat) and 1224 mosre physics-package specific things (remain in iniphysiq). -
TabularUnified trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/iniphysiq_mod.F90 ¶
r1563 r1564 18 18 use ioipsl_getin_p_mod, only: getin_p 19 19 20 20 use inigeomphy_mod, only: inigeomphy 21 21 use geometry_mod, only: cell_area, & ! physics grid area (m2) 22 22 longitude, & ! longitudes (rad) … … 57 57 !------------------------------------------ 58 58 ! --> initialize physics distribution, global fields and geometry 59 CALL inigeom (ii,jj,nlayer, &59 CALL inigeomphy(ii,jj,nlayer, & 60 60 nbp, communicator, & 61 61 rlatudyn,rlatvdyn, & -
TabularUnified trunk/LMDZ.MARS/README ¶
r1560 r1564 2298 2298 writediagfi) or else outputs are always single precision. 2299 2299 2300 == 20/05/2016 == AS+EM 2301 - cleanup around iniphysiq: separate things between planet-independent 2302 initializations (now done by inigeomphy in dynphy_lonlat) and 2303 mosre physics-package specific things (remain in iniphysiq). 2304 2305 -
TabularUnified trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/iniphysiq_mod.F90 ¶
r1563 r1564 14 14 use temps_mod, only: day_ini, hour_ini 15 15 use phys_state_var_init_mod, only: phys_state_var_init 16 16 use inigeomphy_mod, only: inigeomphy 17 17 use geometry_mod, only: cell_area, & ! physics grid area (m2) 18 18 longitude, & ! longitudes (rad) … … 49 49 !------------------------------------------ 50 50 ! --> initialize physics distribution, global fields and geometry 51 CALL inigeom (ii,jj,nlayer, &51 CALL inigeomphy(ii,jj,nlayer, & 52 52 nbp, communicator, & 53 53 rlatudyn,rlatvdyn, &
Note: See TracChangeset
for help on using the changeset viewer.