Changeset 1775 for LMDZ5/trunk

Timestamp:

Jun 19, 2013, 2:24:47 PM (11 years ago)

Author:

Laurent Fairhead

Message:

On rajoute des prints de debug pour les sorties si prt_level >=9

---

Added some prints statements on outputs for debugging purposes.
Nedds prt_level>=9

File:

• LMDZ5/trunk/libf/phylmd/iophy.F90 (modified) (6 diffs)

LMDZ5/trunk/libf/phylmd/iophy.F90

@@ -328 +328 @@
   implicit none
   include 'dimensions.h'
+  include 'iniprint.h'
     
     integer,intent(in) :: nid
@@ -349 +350 @@
      ALLOCATE(index2d(iim*jj_nb))
      ALLOCATE(fieldok(iim*jj_nb))
+     IF (prt_level >= 9) write(lunout,*)'Sending ',name,' to IOIPSL'
      CALL histwrite(nid,name,itau,Field2d,iim*jj_nb,index2d)
+     IF (prt_level >= 9) write(lunout,*)'Finished sending ',name,' to IOIPSL'
     else
      ALLOCATE(fieldok(npstn))
@@ -369 +372 @@
       ENDDO
      endif
+     IF (prt_level >= 9) write(lunout,*)'Sending ',name,' to IOIPSL'
      CALL histwrite(nid,name,itau,fieldok,npstn,index2d)
+     IF (prt_level >= 9) write(lunout,*)'Finished sending ',name,' to IOIPSL'
 !
     endif
@@ -384 +389 @@
   implicit none
   include 'dimensions.h'
+  include 'iniprint.h'
     
     integer,intent(in) :: nid
@@ -411 +417 @@
      ALLOCATE(index3d(iim*jj_nb*nlev))
      ALLOCATE(fieldok(iim*jj_nb,nlev))
+     IF (prt_level >= 9) write(lunout,*)'Sending ',name,' to IOIPSL'
      CALL histwrite(nid,name,itau,Field3d,iim*jj_nb*nlev,index3d)
-    else
+     IF (prt_level >= 9) write(lunout,*)'Finished sending ',name,' to IOIPSL'
+   else
       nlev=size(field,2)
       ALLOCATE(index3d(npstn*nlev))
@@ -435 +443 @@
        ENDDO
       endif
+      IF (prt_level >= 9) write(lunout,*)'Sending ',name,' to IOIPSL'
       CALL histwrite(nid,name,itau,fieldok,npstn*nlev,index3d)
+      IF (prt_level >= 9) write(lunout,*)'Finished sending ',name,' to IOIPSL'
     endif 
   deallocate(index3d)