Changeset 2281 for LMDZ5/trunk/libf/dyn3d/qminimum.F

Timestamp:

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

Author:

crisi

Message:

Camille Risi: corrections of bugs for the isotopic part

File:

• LMDZ5/trunk/libf/dyn3d/qminimum.F (modified) (3 diffs)

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