Changeset 1028 for IOIPSL/trunk
- Timestamp:
- 05/20/10 17:17:30 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/histcom.f90
r1027 r1028 823 823 INTEGER :: pos,iv,zdimid,zaxid_tmp 824 824 CHARACTER(LEN=70) :: str71 825 CHARACTER(LEN=80) :: str80826 825 CHARACTER(LEN=20) :: direction 827 826 INTEGER :: iret,leng,nfid … … 837 836 & pzaxname,'---',pzaxunit,'---',pzaxtitle 838 837 !- 839 ! - Direction of axis. Can we get if from the user. 840 ! If not we put unknown. 838 ! Direction of the vertical axis. Can we get if from the user. 841 839 !- 842 840 IF (PRESENT(pdirect)) THEN … … 849 847 ! Check the consistency of the attribute 850 848 !- 851 IF ( (direction /= 'unknown')&852 & .AND.(direction /= 'up') 853 & .AND.(direction /= 'down') 849 IF ( PRESENT(pdirect) & 850 & .AND.(direction /= 'up') & 851 & .AND.(direction /= 'down') ) THEN 854 852 direction = 'unknown' 855 str80 = 'The specified axis was : '//TRIM(direction)856 853 CALL ipslerr (2,"histvert",& 857 & "The specified direction for the vertical axis is not possible.",&858 & "it is replaced by : unknown",str80)854 & "The specified positive direction for the vertical axis is invalid.",& 855 & "The value must be up or down.","The attribute will not be written.") 859 856 ENDIF 860 857 !- … … 900 897 iret = NF90_PUT_ATT (nfid,zdimid,'units',pzaxunit(1:leng)) 901 898 ENDIF 902 iret = NF90_PUT_ATT (nfid,zdimid,'positive',TRIM(direction)) 899 IF (direction /= 'unknown') THEN 900 iret = NF90_PUT_ATT (nfid,zdimid,'positive',TRIM(direction)) 901 ENDIF 903 902 iret = NF90_PUT_ATT (nfid,zdimid,'valid_min', & 904 903 & REAL(MINVAL(pzvalues(1:pzsize)),KIND=4))
Note: See TracChangeset
for help on using the changeset viewer.