Changeset 4143 for LMDZ6/trunk/libf/phylmdiso/add_wake_tend.F90
- Timestamp:
- May 9, 2022, 12:35:40 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/add_wake_tend.F90
r4004 r4143 18 18 USE print_control_mod, ONLY: prt_level 19 19 #ifdef ISO 20 USE infotrac_phy, ONLY: nt raciso20 USE infotrac_phy, ONLY: ntiso 21 21 USE phys_state_var_mod, ONLY: wake_deltaxt 22 22 #endif … … 31 31 INTEGER, INTENT (IN) :: abortphy 32 32 #ifdef ISO 33 REAL, DIMENSION(nt raciso,klon, klev), INTENT (IN):: zddeltaxt33 REAL, DIMENSION(ntiso, klon, klev), INTENT (IN) :: zddeltaxt 34 34 #endif 35 35 … … 61 61 wake_deltaq(i, l) = wake_deltaq(i, l) + zddeltaq(i,l) 62 62 #ifdef ISO 63 do ixt=1,nt raciso63 do ixt=1,ntiso 64 64 wake_deltaxt(ixt,i, l) = wake_deltaxt(ixt,i, l) + zddeltaxt(ixt,i,l) 65 65 enddo … … 69 69 wake_deltaq(i, l) = 0. 70 70 #ifdef ISO 71 do ixt=1,nt raciso71 do ixt=1,ntiso 72 72 wake_deltaxt(ixt,i, l) = 0.0 73 73 enddo
Note: See TracChangeset
for help on using the changeset viewer.