Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/phylmdiso/reevap.F90
- Timestamp:
- Oct 19, 2023, 4:02:57 PM (12 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmdiso/reevap.F90
r4143 r4727 85 85 do ixt=1,ntiso 86 86 call iso_verif_noNaN(xt_seri(ixt,i,k), & 87 & ' physiq2417: apres evap tot')87 & 'reevap 2417: apres evap tot') 88 88 enddo 89 89 if (iso_eau.gt.0) then 90 90 call iso_verif_egalite_choix( & 91 91 & xt_seri(iso_eau,i,k),q_seri(i,k), & 92 & ' physiq1891+, après reevap totale',errmax,errmaxrel)92 & 'reevap 1891+, après reevap totale',errmax,errmaxrel) 93 93 call iso_verif_egalite_choix( & 94 94 & xtl_seri(iso_eau,i,k),ql_seri(i,k), & 95 & ' physiq2209+, après reevap totale',errmax,errmaxrel)95 & 'reevap 2209+, après reevap totale',errmax,errmaxrel) 96 96 endif !if (iso_eau.gt.0) then 97 97 if ((iso_HDO.gt.0).and.(iso_O18.gt.0)) then … … 100 100 & xt_seri(iso_HDO,i,k)/q_seri(i,k), & 101 101 & xt_seri(iso_O18,i,k)/q_seri(i,k), & 102 & ' physiq2315: apres reevap totale').eq.1) then102 & 'reevap 2315: apres reevap totale').eq.1) then 103 103 write(*,*) 'i,k,q_seri(i,k)=',i,k,q_seri(i,k) 104 104 write(*,*) 'd_q_eva(i,k)=',d_q_eva(i,k) … … 111 111 #ifdef ISOTRAC 112 112 call iso_verif_traceur(xt_seri(1,i,k), & 113 & ' physiq 2165')113 & 'reevap 2165a') 114 114 call iso_verif_traceur_pbidouille(xt_seri(1,i,k), & 115 & ' physiq2165b')115 & 'reevap 2165b') 116 116 #endif 117 117 … … 146 146 do ixt=1,ntiso 147 147 call iso_verif_noNaN(xt_seri(ixt,i,k), & 148 & ' physiq2417: apres evap tot')148 & 'reevap 2417: apres evap tot') 149 149 enddo 150 150 if (iso_eau.gt.0) then 151 151 call iso_verif_egalite_choix( & 152 152 & xt_seri(iso_eau,i,k),q_seri(i,k), & 153 & ' physiq1891, après réévap totale',errmax,errmaxrel)153 & 'reevap 1891, après réévap totale',errmax,errmaxrel) 154 154 call iso_verif_egalite_choix( & 155 155 & xtl_seri(iso_eau,i,k),ql_seri(i,k), & 156 & ' physiq2209, après réévap totale',errmax,errmaxrel)156 & 'reevap 2209, après réévap totale',errmax,errmaxrel) 157 157 call iso_verif_egalite_choix( & 158 158 & xts_seri(iso_eau,i,k),qs_seri(i,k), & 159 & ' physiq2209b, après réévap totale',errmax,errmaxrel)159 & 'reevap 2209b, après réévap totale',errmax,errmaxrel) 160 160 endif !if (iso_eau.gt.0) then 161 161 … … 165 165 & xt_seri(iso_HDO,i,k)/q_seri(i,k), & 166 166 & xt_seri(iso_O18,i,k)/q_seri(i,k), & 167 & ' physiq2408: apres reevap totale').eq.1) then167 & 'reevap 2408: apres reevap totale').eq.1) then 168 168 write(*,*) 'i,k,q_seri(i,k)=',i,k,q_seri(i,k) 169 169 stop … … 173 173 #ifdef ISOTRAC 174 174 call iso_verif_traceur(xt_seri(1,i,k), & 175 & ' physiq 2165')175 & 'reevap 2165c') 176 176 call iso_verif_traceur_pbidouille(xt_seri(1,i,k), & 177 & ' physiq 2165b')177 & 'reevap 2165d') 178 178 #endif 179 179 #endif
Note: See TracChangeset
for help on using the changeset viewer.