Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
- Timestamp:
- 2018-02-28T16:29:13+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r6486 r9366 45 45 PUBLIC tra_kpp ! routine called by step.F90 46 46 PUBLIC trc_kpp ! routine called by trcstp.F90 47 PRIVATE kpp_namelist 47 48 48 49 LOGICAL , PUBLIC, PARAMETER :: lk_zdfkpp = .TRUE. !: KPP vertical mixing flag … … 1362 1363 IF( nn_timing == 1 ) CALL timing_start('zdf_kpp_init') 1363 1364 ! 1364 REWIND( numnam_ref ) ! Namelist namzdf_kpp in reference namelist : Vertical eddy diffivity and viscosity using kpp turbulent closure scheme 1365 READ ( numnam_ref, namzdf_kpp, IOSTAT = ios, ERR = 901) 1366 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in reference namelist', lwp ) 1367 1368 REWIND( numnam_cfg ) ! Namelist namzdf_kpp in configuration namelist : Vertical eddy diffivity and viscosity using kpp turbulent closure scheme 1369 READ ( numnam_cfg, namzdf_kpp, IOSTAT = ios, ERR = 902 ) 1370 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwp ) 1365 IF(lwm) THEN 1366 REWIND( numnam_ref ) ! Namelist namzdf_kpp in reference namelist : Vertical eddy diffivity and viscosity using kpp turbulent closure scheme 1367 READ ( numnam_ref, namzdf_kpp, IOSTAT = ios, ERR = 901) 1368 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in reference namelist', lwm ) 1369 REWIND( numnam_cfg ) ! Namelist namzdf_kpp in configuration namelist : Vertical eddy diffivity and viscosity using kpp turbulent closure scheme 1370 READ ( numnam_cfg, namzdf_kpp, IOSTAT = ios, ERR = 902 ) 1371 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwm ) 1372 ENDIF 1371 1373 IF(lwm) WRITE ( numond, namzdf_kpp ) 1374 1375 CALL kpp_namelist() 1372 1376 1373 1377 IF(lwp) THEN ! Control print … … 1569 1573 END SUBROUTINE zdf_kpp_init 1570 1574 1575 SUBROUTINE kpp_namelist() 1576 !!--------------------------------------------------------------------- 1577 !! *** ROUTINE kpp_namelist *** 1578 !! 1579 !! ** Purpose : Broadcast namelist variables read by procesor lwm 1580 !! 1581 !! ** Method : use lib_mpp 1582 !!---------------------------------------------------------------------- 1583 #if defined key_mpp_mpi 1584 CALL mpp_bcast(ln_kpprimix) 1585 CALL mpp_bcast(rn_difmiw) 1586 CALL mpp_bcast(rn_difsiw) 1587 CALL mpp_bcast(rn_riinfty) 1588 CALL mpp_bcast(rn_difri) 1589 CALL mpp_bcast(rn_bvsqcon) 1590 CALL mpp_bcast(rn_difcon) 1591 CALL mpp_bcast(nn_ave) 1592 #endif 1593 END SUBROUTINE kpp_namelist 1571 1594 #else 1572 1595 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.