Changeset 104 for codes/icosagcm/trunk

Timestamp:

08/06/12 03:52:02 (12 years ago)

Author:

ymipsl

Message:

minor correction to exclude output at pression level 0

YM

File:

• codes/icosagcm/trunk/src/caldyn_gcm.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/caldyn_gcm.f90

@@ -654 +654 @@
     CALL w_omega(f_ps, f_u, f_buf_i)
     CALL writefield('omega', f_buf_i)
-    IF (out_pression_level<=preff) THEN
+    IF (out_pression_level<=preff .AND. out_pression_level > 0) THEN
       CALL vertical_interp(f_ps,f_buf_i,f_buf_s,out_pression_level)
       CALL writefield("omega"//TRIM(str_pression),f_buf_s)
@@ -663 +663 @@
     CALL writefield("T",f_buf_i)
     
-    IF (out_pression_level<=preff) THEN
+    IF (out_pression_level<=preff .AND. out_pression_level > 0) THEN
       CALL vertical_interp(f_ps,f_buf_i,f_buf_s,out_pression_level)
       CALL writefield("T"//TRIM(str_pression),f_buf_s)
@@ -673 +673 @@
     CALL writefield("ulat",f_buf2_i)
 
-    IF (out_pression_level<=preff) THEN
+    IF (out_pression_level<=preff .AND. out_pression_level > 0) THEN
       CALL vertical_interp(f_ps,f_buf1_i,f_buf_s,out_pression_level)
       CALL writefield("ulon"//TRIM(str_pression),f_buf_s)