Changeset 4491 for LMDZ6/trunk/libf/phylmdiso/reevap.F90

Timestamp:

Apr 3, 2023, 10:25:44 AM (15 months ago)

Author:

crisi

Message:

Bug corrections in LMDZiso, especially for water tagging

File:

• LMDZ6/trunk/libf/phylmdiso/reevap.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmdiso/reevap.F90

@@ -85 +85 @@
       do ixt=1,ntiso
         call iso_verif_noNaN(xt_seri(ixt,i,k), &
-     &     'physiq 2417: apres evap tot')
+     &     'reevap 2417: apres evap tot')
       enddo
       if (iso_eau.gt.0) then
               call iso_verif_egalite_choix( &
      &           xt_seri(iso_eau,i,k),q_seri(i,k), &
-     &          'physiq 1891+, après reevap totale',errmax,errmaxrel)
+     &          'reevap 1891+, après reevap totale',errmax,errmaxrel)
               call iso_verif_egalite_choix( &
      &           xtl_seri(iso_eau,i,k),ql_seri(i,k), &
-     &          'physiq 2209+, après reevap totale',errmax,errmaxrel)
+     &          'reevap 2209+, après reevap totale',errmax,errmaxrel)
        endif !if (iso_eau.gt.0) then       
       if ((iso_HDO.gt.0).and.(iso_O18.gt.0)) then  
@@ -100 +100 @@
      &              xt_seri(iso_HDO,i,k)/q_seri(i,k), &
      &              xt_seri(iso_O18,i,k)/q_seri(i,k), &
-     &              'physiq 2315: apres reevap totale').eq.1) then
+     &              'reevap 2315: apres reevap totale').eq.1) then
                   write(*,*) 'i,k,q_seri(i,k)=',i,k,q_seri(i,k)
                   write(*,*) 'd_q_eva(i,k)=',d_q_eva(i,k)
@@ -111 +111 @@
 #ifdef ISOTRAC      
              call iso_verif_traceur(xt_seri(1,i,k), &
-     &           'physiq 2165')
+     &           'reevap 2165a')
              call iso_verif_traceur_pbidouille(xt_seri(1,i,k), &
-     &           'physiq 2165b')
+     &           'reevap 2165b')
 #endif               
          
@@ -146 +146 @@
       do ixt=1,ntiso
       call iso_verif_noNaN(xt_seri(ixt,i,k), &
-     &     'physiq 2417: apres evap tot')
+     &     'reevap 2417: apres evap tot')
       enddo
       if (iso_eau.gt.0) then
               call iso_verif_egalite_choix( &
      &           xt_seri(iso_eau,i,k),q_seri(i,k), &
-     &          'physiq 1891, après réévap totale',errmax,errmaxrel)
+     &          'reevap 1891, après réévap totale',errmax,errmaxrel)
               call iso_verif_egalite_choix( &
      &           xtl_seri(iso_eau,i,k),ql_seri(i,k), &
-     &          'physiq 2209, après réévap totale',errmax,errmaxrel)
+     &          'reevap 2209, après réévap totale',errmax,errmaxrel)
               call iso_verif_egalite_choix( &
      &           xts_seri(iso_eau,i,k),qs_seri(i,k), &
-     &          'physiq 2209b, après réévap totale',errmax,errmaxrel)
+     &          'reevap 2209b, après réévap totale',errmax,errmaxrel)
        endif !if (iso_eau.gt.0) then
      
@@ -165 +165 @@
      &              xt_seri(iso_HDO,i,k)/q_seri(i,k), &
      &              xt_seri(iso_O18,i,k)/q_seri(i,k), &
-     &              'physiq 2408: apres reevap totale').eq.1) then
+     &              'reevap 2408: apres reevap totale').eq.1) then
                   write(*,*) 'i,k,q_seri(i,k)=',i,k,q_seri(i,k)                       
                   stop
@@ -173 +173 @@
 #ifdef ISOTRAC      
              call iso_verif_traceur(xt_seri(1,i,k), &
-     &           'physiq 2165')
+     &           'reevap 2165c')
              call iso_verif_traceur_pbidouille(xt_seri(1,i,k), &
-     &           'physiq 2165b')
+     &           'reevap 2165d')
 #endif                  
 #endif