Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.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/DYN/dynvor.F90
r6486 r9366 45 45 PUBLIC dyn_vor ! routine called by step.F90 46 46 PUBLIC dyn_vor_init ! routine called by opa.F90 47 PRIVATE vor_namelist 47 48 48 49 ! !!* Namelist namdyn_vor: vorticity term … … 722 723 NAMELIST/namdyn_vor/ ln_dynvor_ens, ln_dynvor_ene, ln_dynvor_mix, ln_dynvor_een, ln_dynvor_een_old 723 724 !!---------------------------------------------------------------------- 724 725 REWIND( numnam_ref ) ! Namelist namdyn_vor in reference namelist : Vorticity scheme options726 READ ( numnam_ref, namdyn_vor, IOSTAT = ios, ERR = 901)727 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in reference namelist', lwp)728 729 REWIND( numnam_cfg ) ! Namelist namdyn_vor in configuration namelist : Vorticity scheme options730 READ ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902)731 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwp ) 725 IF(lwm) THEN 726 REWIND( numnam_ref ) ! Namelist namdyn_vor in reference namelist : Vorticity scheme options 727 READ ( numnam_ref, namdyn_vor, IOSTAT = ios, ERR = 901) 728 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in reference namelist', lwm ) 729 REWIND( numnam_cfg ) ! Namelist namdyn_vor in configuration namelist : Vorticity scheme options 730 READ ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 731 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwm ) 732 ENDIF 732 733 IF(lwm) WRITE ( numond, namdyn_vor ) 734 735 CALL vor_namelist() 733 736 734 737 IF(lwp) THEN ! Namelist print … … 801 804 END SUBROUTINE dyn_vor_init 802 805 806 SUBROUTINE vor_namelist() 807 !!--------------------------------------------------------------------- 808 !! *** ROUTINE vor_namelist *** 809 !! 810 !! ** Purpose : Broadcast namelist variables read by procesor lwm 811 !! 812 !! ** Method : use lib_mpp 813 !!---------------------------------------------------------------------- 814 #if defined key_mpp_mpi 815 CALL mpp_bcast(ln_dynvor_ens) 816 CALL mpp_bcast(ln_dynvor_ene) 817 CALL mpp_bcast(ln_dynvor_mix) 818 CALL mpp_bcast(ln_dynvor_een) 819 CALL mpp_bcast(ln_dynvor_een_old) 820 #endif 821 END SUBROUTINE vor_namelist 803 822 !!============================================================================== 804 823 END MODULE dynvor
Note: See TracChangeset
for help on using the changeset viewer.