Changeset 5407 for trunk/NEMOGCM/NEMO/OPA_SRC/LBC
- Timestamp:
- 2015-06-11T21:13:22+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r4990 r5407 164 164 165 165 166 FUNCTION mynode( ldtxt, kumnam_ref , kumnam_cfg , kumond , kstop, localComm )166 FUNCTION mynode( ldtxt, ldname, kumnam_ref , kumnam_cfg , kumond , kstop, localComm ) 167 167 !!---------------------------------------------------------------------- 168 168 !! *** routine mynode *** … … 171 171 !!---------------------------------------------------------------------- 172 172 CHARACTER(len=*),DIMENSION(:), INTENT( out) :: ldtxt 173 CHARACTER(len=*) , INTENT(in ) :: ldname 173 174 INTEGER , INTENT(in ) :: kumnam_ref ! logical unit for reference namelist 174 175 INTEGER , INTENT(in ) :: kumnam_cfg ! logical unit for configuration namelist … … 297 298 298 299 IF( mynode == 0 ) THEN 299 CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )300 WRITE(kumond, nammpp)300 CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 301 WRITE(kumond, nammpp) 301 302 ENDIF 302 303 ! … … 3192 3193 END FUNCTION lib_mpp_alloc 3193 3194 3194 FUNCTION mynode( ldtxt, kumnam_ref, knumnam_cfg, kumond , kstop, localComm ) RESULT (function_value)3195 FUNCTION mynode( ldtxt, ldname, kumnam_ref, knumnam_cfg, kumond , kstop, localComm ) RESULT (function_value) 3195 3196 INTEGER, OPTIONAL , INTENT(in ) :: localComm 3196 3197 CHARACTER(len=*),DIMENSION(:) :: ldtxt 3198 CHARACTER(len=*) :: ldname 3197 3199 INTEGER :: kumnam_ref, knumnam_cfg , kumond , kstop 3198 3200 IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) ) function_value = 0 3199 3201 IF( .FALSE. ) ldtxt(:) = 'never done' 3200 CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )3202 CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 3201 3203 END FUNCTION mynode 3202 3204
Note: See TracChangeset
for help on using the changeset viewer.