Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.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/SBC/sbcisf.F90
r8243 r9366 33 33 34 34 PUBLIC sbc_isf, sbc_isf_div, sbc_isf_alloc ! routine called in sbcmod and divcur 35 PRIVATE isf_namelist 35 36 36 37 ! public in order to be able to output then … … 105 106 ! ! ====================== ! 106 107 ln_isf_sio = .FALSE. 107 REWIND( numnam_ref ) ! Namelist namsbc_rnf in reference namelist : Runoffs 108 READ ( numnam_ref, namsbc_isf, IOSTAT = ios, ERR = 901) 109 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in reference namelist', lwp ) 110 111 REWIND( numnam_cfg ) ! Namelist namsbc_rnf in configuration namelist : Runoffs 112 READ ( numnam_cfg, namsbc_isf, IOSTAT = ios, ERR = 902 ) 113 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist', lwp ) 108 IF(lwm) THEN 109 REWIND( numnam_ref ) ! Namelist namsbc_rnf in reference namelist : Runoffs 110 READ ( numnam_ref, namsbc_isf, IOSTAT = ios, ERR = 901) 111 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in reference namelist', lwm ) 112 REWIND( numnam_cfg ) ! Namelist namsbc_rnf in configuration namelist : Runoffs 113 READ ( numnam_cfg, namsbc_isf, IOSTAT = ios, ERR = 902 ) 114 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist', lwm ) 115 ENDIF 116 114 117 IF(lwm) WRITE ( numond, namsbc_isf ) 115 118 119 CALL isf_namelist(ln_isf_sio) 116 120 117 121 IF ( lwp ) WRITE(numout,*) … … 944 948 ! 945 949 END SUBROUTINE sbc_isf_div 946 950 951 SUBROUTINE isf_namelist(ld_isf_sio) 952 !!--------------------------------------------------------------------- 953 !! *** ROUTINE isf_namelist *** 954 !! 955 !! ** Purpose : Broadcast namelist variables read by procesor lwm 956 !! 957 !! ** Method : use lib_mpp 958 !!---------------------------------------------------------------------- 959 LOGICAL :: ld_isf_sio 960 #if defined key_mpp_mpi 961 CALL mpp_bcast(nn_isfblk) 962 CALL mpp_bcast(rn_hisf_tbl) 963 CALL mpp_bcast(ln_divisf) 964 CALL mpp_bcast(ln_conserve) 965 CALL mpp_bcast(rn_gammat0) 966 CALL mpp_bcast(rn_gammas0) 967 CALL mpp_bcast(nn_gammablk) 968 CALL fld_n_bcast(sn_fwfisf) 969 CALL fld_n_bcast(sn_qisf) 970 CALL fld_n_bcast(sn_rnfisf) 971 CALL fld_n_bcast(sn_depmax_isf) 972 CALL fld_n_bcast(sn_depmin_isf) 973 CALL fld_n_bcast(sn_Leff_isf) 974 CALL mpp_bcast(ld_isf_sio) 975 #endif 976 END SUBROUTINE isf_namelist 977 947 978 FUNCTION tinsitu( ptem, psal, ppress ) RESULT( pti ) 948 979 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.