Changeset 104
- Timestamp:
- 08/06/12 03:52:02 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/caldyn_gcm.f90
r100 r104 654 654 CALL w_omega(f_ps, f_u, f_buf_i) 655 655 CALL writefield('omega', f_buf_i) 656 IF (out_pression_level<=preff ) THEN656 IF (out_pression_level<=preff .AND. out_pression_level > 0) THEN 657 657 CALL vertical_interp(f_ps,f_buf_i,f_buf_s,out_pression_level) 658 658 CALL writefield("omega"//TRIM(str_pression),f_buf_s) … … 663 663 CALL writefield("T",f_buf_i) 664 664 665 IF (out_pression_level<=preff ) THEN665 IF (out_pression_level<=preff .AND. out_pression_level > 0) THEN 666 666 CALL vertical_interp(f_ps,f_buf_i,f_buf_s,out_pression_level) 667 667 CALL writefield("T"//TRIM(str_pression),f_buf_s) … … 673 673 CALL writefield("ulat",f_buf2_i) 674 674 675 IF (out_pression_level<=preff ) THEN675 IF (out_pression_level<=preff .AND. out_pression_level > 0) THEN 676 676 CALL vertical_interp(f_ps,f_buf1_i,f_buf_s,out_pression_level) 677 677 CALL writefield("ulon"//TRIM(str_pression),f_buf_s)
Note: See TracChangeset
for help on using the changeset viewer.