Changeset 4143 for LMDZ6/trunk/libf/phylmdiso/cv3_enthalpmix.F90
- Timestamp:
- May 9, 2022, 12:35:40 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/cv3_enthalpmix.F90
r4004 r4143 7 7 ) 8 8 #ifdef ISO 9 use infotrac_phy, ONLY: nt raciso9 use infotrac_phy, ONLY: ntiso 10 10 #endif 11 11 ! ************************************************************** … … 43 43 REAL, DIMENSION (len,nd+1), INTENT (IN) :: ph 44 44 #ifdef ISO 45 REAL, DIMENSION (nt raciso,len,nd), INTENT (IN) :: xt45 REAL, DIMENSION (ntiso,len,nd), INTENT (IN) :: xt 46 46 #endif 47 47 !input/output: … … 54 54 REAL, DIMENSION (len,nd), INTENT (OUT) :: wi 55 55 #ifdef ISO 56 REAL, DIMENSION (nt raciso,len), INTENT (OUT) :: xtmix56 REAL, DIMENSION (ntiso,len), INTENT (OUT) :: xtmix 57 57 #endif 58 58 !internal variables : … … 153 153 vmix(i) = vmix(i) + v(i, j)*wi(i, j) 154 154 #ifdef ISO 155 do ixt=1,nt raciso155 do ixt=1,ntiso 156 156 xtmix(ixt,i) = xtmix(ixt,i) + xt(ixt,i, j)*wi(i, j) 157 157 enddo
Note: See TracChangeset
for help on using the changeset viewer.