Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.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/TRD/trdini.F90
r7923 r9366 24 24 25 25 PUBLIC trd_init ! called by nemogcm.F90 module 26 PRIVATE ini_namelist 26 27 27 28 !! * Substitutions … … 47 48 !!---------------------------------------------------------------------- 48 49 ! 49 REWIND( numnam_ref ) ! Namelist namtrd in reference namelist : trends diagnostic 50 READ ( numnam_ref, namtrd, IOSTAT = ios, ERR = 901 ) 51 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in reference namelist', lwp ) 52 ! 53 REWIND( numnam_cfg ) ! Namelist namtrd in configuration namelist : trends diagnostic 54 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 55 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 50 IF(lwm) THEN 51 REWIND( numnam_ref ) ! Namelist namtrd in reference namelist : trends diagnostic 52 READ ( numnam_ref, namtrd, IOSTAT = ios, ERR = 901 ) 53 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in reference namelist', lwm ) 54 REWIND( numnam_cfg ) ! Namelist namtrd in configuration namelist : trends diagnostic 55 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 56 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwm ) 57 ENDIF 58 56 59 IF(lwm) WRITE( numond, namtrd ) 57 60 ! 61 CALL ini_namelist() 62 58 63 IF(lwp) THEN ! control print 59 64 WRITE(numout,*) … … 104 109 END SUBROUTINE trd_init 105 110 111 SUBROUTINE ini_namelist() 112 !!--------------------------------------------------------------------- 113 !! *** ROUTINE ini_namelist *** 114 !! 115 !! ** Purpose : Broadcast namelist variables read by procesor lwm 116 !! 117 !! ** Method : use lib_mpp 118 !!---------------------------------------------------------------------- 119 #if defined key_mpp_mpi 120 CALL mpp_bcast(ln_dyn_trd) 121 CALL mpp_bcast(ln_KE_trd) 122 CALL mpp_bcast(ln_vor_trd) 123 CALL mpp_bcast(ln_dyn_mxl) 124 CALL mpp_bcast(ln_tra_trd) 125 CALL mpp_bcast(ln_PE_trd) 126 CALL mpp_bcast(ln_glo_trd) 127 CALL mpp_bcast(ln_tra_mxl) 128 CALL mpp_bcast(nn_trd) 129 #endif 130 END SUBROUTINE ini_namelist 131 106 132 !!====================================================================== 107 133 END MODULE trdini
Note: See TracChangeset
for help on using the changeset viewer.