Changeset 4624 for trunk/NEMOGCM/NEMO/OPA_SRC/LBC
- Timestamp:
- 2014-04-28T14:09:03+02:00 (10 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC/LBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r4328 r4624 170 170 INTEGER , INTENT(in ) :: kumnam_ref ! logical unit for reference namelist 171 171 INTEGER , INTENT(in ) :: kumnam_cfg ! logical unit for configuration namelist 172 INTEGER , INTENT(in 172 INTEGER , INTENT(inout) :: kumond ! logical unit for namelist output 173 173 INTEGER , INTENT(inout) :: kstop ! stop indicator 174 174 INTEGER, OPTIONAL , INTENT(in ) :: localComm … … 193 193 READ ( kumnam_cfg, nammpp, IOSTAT = ios, ERR = 902 ) 194 194 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist', lwp ) 195 WRITE(kumond, nammpp)196 195 197 196 ! ! control print … … 293 292 CALL mpi_comm_size( mpi_comm_opa, mppsize, ierr ) 294 293 mynode = mpprank 294 295 IF( mynode == 0 ) THEN 296 CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 297 WRITE(kumond, nammpp) 298 ENDIF 295 299 ! 296 300 CALL MPI_OP_CREATE(DDPDD_MPI, .TRUE., MPI_SUMDD, ierr) … … 2924 2928 IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) ) function_value = 0 2925 2929 IF( .FALSE. ) ldtxt(:) = 'never done' 2930 CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 2926 2931 END FUNCTION mynode 2927 2932 -
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90
r4153 r4624 86 86 READ ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 87 87 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 88 WRITE ( numond, namzgr )88 IF(lwm) WRITE ( numond, namzgr ) 89 89 90 90 IF(lwp)WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.