Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/dyn3dmem/leapfrog_loc.F
- Timestamp:
- Nov 21, 2019, 4:43:45 PM (4 years ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
-
LMDZ6/branches/Ocean_skin/libf/dyn3dmem/leapfrog_loc.F
r2622 r3605 29 29 USE call_dissip_mod, ONLY : call_dissip 30 30 USE call_calfis_mod, ONLY : call_calfis 31 USE leapfrog_mod 31 USE leapfrog_mod, ONLY : ucov,vcov,teta,ps,masse,phis,q,dq 32 & ,ucovm1,vcovm1,tetam1,massem1,psm1,p,pks,pk,pkf,flxw 33 & ,pbaru,pbarv,du,dv,dteta,phi,dp,w 34 & ,leapfrog_allocate,leapfrog_switch_caldyn,leapfrog_switch_dissip 35 32 36 use exner_hyb_loc_m, only: exner_hyb_loc 33 37 use exner_milieu_loc_m, only: exner_milieu_loc … … 1535 1539 1536 1540 #ifdef INCA 1537 call finalize_inca 1541 if (type_trac == 'inca') then 1542 call finalize_inca 1543 endif 1538 1544 #endif 1539 1545 … … 1583 1589 1584 1590 #ifdef INCA 1585 call finalize_inca 1591 if (type_trac == 'inca') then 1592 call finalize_inca 1593 endif 1586 1594 #endif 1587 1595 … … 1732 1740 1733 1741 #ifdef INCA 1734 call finalize_inca 1742 if (type_trac == 'inca') then 1743 call finalize_inca 1744 endif 1735 1745 #endif 1736 1746 … … 1820 1830 1821 1831 #ifdef INCA 1822 call finalize_inca 1832 if (type_trac == 'inca') then 1833 call finalize_inca 1834 endif 1823 1835 #endif 1824 1836
Note: See TracChangeset
for help on using the changeset viewer.