Changeset 2281 for LMDZ5/trunk/libf/dyn3d

Timestamp:

May 18, 2015, 11:09:37 AM (9 years ago)

Author:

crisi

Message:

Camille Risi: corrections of bugs for the isotopic part

Location:

LMDZ5/trunk/libf/dyn3d

Files:

• advtrac.F90 (modified) (2 diffs)
• caladvtrac.F (modified) (1 diff)
• check_isotopes.F (modified) (6 diffs)
• leapfrog.F (modified) (1 diff)
• qminimum.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3d/advtrac.F90

@@ -225 +225 @@
 
      if (ok_iso_verif) then
-           call check_isotopes_seq(q,1,ip1jmp1,'advtrac 162')
+           write(*,*) 'advtrac 227'
+           call check_isotopes_seq(q,ip1jmp1,'advtrac 162')
      endif !if (ok_iso_verif) then
 
@@ -399 +400 @@
 
      if (ok_iso_verif) then
+           write(*,*) 'advtrac 402'
            call check_isotopes_seq(q,ip1jmp1,'advtrac 397')
      endif !if (ok_iso_verif) then

LMDZ5/trunk/libf/dyn3d/caladvtrac.F

@@ -85 +85 @@
           ENDDO
 
+          write(*,*) 'caladvtrac 87'
           CALL qminimum( q, nqtot, finmasse )
+          write(*,*) 'caladvtrac 89'
 
           CALL SCOPY   ( ip1jmp1*llm, masse, 1, finmasse,       1 )

LMDZ5/trunk/libf/dyn3d/check_isotopes.F

@@ -29 +29 @@
         if (ok_isotopes) then
 
+        write(*,*) 'check_isotopes 31: err_msg=',err_msg
         ! verifier que rien n'est NaN
         do ixt=1,ntraciso
@@ -49 +50 @@
         enddo !do ixt=1,ntraciso
 
+        !write(*,*) 'check_isotopes 52'
         ! verifier que l'eau normale est OK
         if (use_iso(1)) then
@@ -74 +76 @@
         endif !if (use_iso(1)) then
         
+        !write(*,*) 'check_isotopes 78'
         ! verifier que HDO est raisonable
         if (use_iso(2)) then
@@ -98 +101 @@
         endif !if (use_iso(2)) then
 
+        !write(*,*) 'check_isotopes 103'
         ! verifier que O18 est raisonable
         if (use_iso(3)) then
@@ -123 +127 @@
 
 
+        !write(*,*) 'check_isotopes 129'
         if (ok_isotrac) then
 
@@ -191 +196 @@
 
         endif ! if (ok_isotopes)
+        !write(*,*) 'check_isotopes 198'
         
         end

LMDZ5/trunk/libf/dyn3d/leapfrog.F

@@ -344 +344 @@
      *        p, masse, dq,  teta,
      .        flxw, pk)
+          write(*,*) 'caladvtrac 346'
 
          

LMDZ5/trunk/libf/dyn3d/qminimum.F

@@ -152 +152 @@
        enddo !do k=2,llm
 
-        if (ok_iso_verif) then
+        if (ok_iso_verif) then     
            call check_isotopes_seq(q,ip1jmp1,'qminimum 168')
         endif !if (ok_iso_verif) then
@@ -158 +158 @@
       
         ! 3) transfert d'eau de la vapeur au liquide
-        !write(*,*) 'qminimum 164'
+        write(*,*) 'qminimum 164'
         do k=1,llm
         DO i = 1,ip1jmp1
@@ -186 +186 @@
 
       endif !if (ok_isotopes) then
-      !write(*,*) 'qminimum 188'
+      write(*,*) 'qminimum 188'
       
 c