Changeset 5836 for trunk/NEMOGCM/NEMO/OPA_SRC/LBC
- Timestamp:
- 2015-10-26T15:49:40+01:00 (8 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC/LBC
- Files:
-
- 1 deleted
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r5656 r5836 3744 3744 LOGICAL , INTENT(in ) :: ldwp ! boolean term for print 3745 3745 INTEGER, OPTIONAL, INTENT(in ) :: karea ! proc number 3746 ! !3746 ! 3747 3747 CHARACTER(len=80) :: clfile 3748 3748 INTEGER :: iost 3749 3749 !!---------------------------------------------------------------------- 3750 3750 ! 3751 3751 ! adapt filename 3752 3752 ! ---------------- … … 3761 3761 knum=get_unit() 3762 3762 #endif 3763 3763 ! 3764 3764 iost=0 3765 3765 IF( cdacce(1:6) == 'DIRECT' ) THEN … … 3794 3794 STOP 'ctl_opn bad opening' 3795 3795 ENDIF 3796 3796 ! 3797 3797 END SUBROUTINE ctl_opn 3798 3798 3799 3799 3800 SUBROUTINE ctl_nam ( kios, cdnam, ldwp ) 3800 3801 !!---------------------------------------------------------------------- … … 3805 3806 !! ** Method : Fortan open 3806 3807 !!---------------------------------------------------------------------- 3807 INTEGER , INTENT(inout) :: kios ! IO status after reading the namelist 3808 CHARACTER(len=*) , INTENT(in ) :: cdnam ! group name of namelist for which error occurs 3809 CHARACTER(len=4) :: clios ! string to convert iostat in character for print 3810 LOGICAL , INTENT(in ) :: ldwp ! boolean term for print 3811 !!---------------------------------------------------------------------- 3812 3813 ! 3814 ! ---------------- 3815 WRITE (clios, '(I4.0)') kios 3808 INTEGER , INTENT(inout) :: kios ! IO status after reading the namelist 3809 CHARACTER(len=*), INTENT(in ) :: cdnam ! group name of namelist for which error occurs 3810 CHARACTER(len=4) :: clios ! string to convert iostat in character for print 3811 LOGICAL , INTENT(in ) :: ldwp ! boolean term for print 3812 !!---------------------------------------------------------------------- 3813 ! 3814 WRITE (clios, '(I4.0)') kios 3816 3815 IF( kios < 0 ) THEN 3817 CALL ctl_warn( ' W A R N I N G: end of record or file while reading namelist '&3818 & // TRIM(cdnam) // ' iostat = ' // TRIM(clios) )3819 ENDIF 3820 3816 CALL ctl_warn( 'end of record or file while reading namelist ' & 3817 & // TRIM(cdnam) // ' iostat = ' // TRIM(clios) ) 3818 ENDIF 3819 ! 3821 3820 IF( kios > 0 ) THEN 3822 CALL ctl_stop( ' E R R O R : misspelled variable in namelist '&3823 & // TRIM(cdnam) // ' iostat = ' // TRIM(clios) )3821 CALL ctl_stop( 'misspelled variable in namelist ' & 3822 & // TRIM(cdnam) // ' iostat = ' // TRIM(clios) ) 3824 3823 ENDIF 3825 3824 kios = 0 3826 3825 RETURN 3827 3826 ! 3828 3827 END SUBROUTINE ctl_nam 3828 3829 3829 3830 3830 INTEGER FUNCTION get_unit()
Note: See TracChangeset
for help on using the changeset viewer.