Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.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/sbcice_if.F90
r8243 r9366 30 30 PRIVATE 31 31 PUBLIC sbc_ice_if ! routine called in sbcmod 32 PRIVATE if_namelist 32 33 33 34 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_ice ! structure of input ice-cover (file informations, fields read) … … 74 75 ! ! ====================== ! 75 76 ! set file information 76 REWIND( numnam_ref ) ! Namelist namsbc_iif in reference namelist : Ice if file 77 READ ( numnam_ref, namsbc_iif, IOSTAT = ios, ERR = 901) 78 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist', lwp ) 77 IF(lwm) THEN 78 REWIND( numnam_ref ) ! Namelist namsbc_iif in reference namelist : Ice if file 79 READ ( numnam_ref, namsbc_iif, IOSTAT = ios, ERR = 901) 80 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist', lwm ) 81 REWIND( numnam_cfg ) ! Namelist Namelist namsbc_iif in configuration namelist : Ice if file 82 READ ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 83 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwm ) 84 ENDIF 79 85 80 REWIND( numnam_cfg ) ! Namelist Namelist namsbc_iif in configuration namelist : Ice if file81 READ ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 )82 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp )83 86 IF(lwm) WRITE ( numond, namsbc_iif ) 87 88 CALL if_namelist(cn_dir, sn_ice) 84 89 85 90 ALLOCATE( sf_ice(1), STAT=ierror ) … … 147 152 END SUBROUTINE sbc_ice_if 148 153 154 SUBROUTINE if_namelist(cd_dir, sd_ice) 155 !!--------------------------------------------------------------------- 156 !! *** ROUTINE if_namelist *** 157 !! 158 !! ** Purpose : Broadcast namelist variables read by procesor lwm 159 !! 160 !! ** Method : use lib_mpp 161 !!---------------------------------------------------------------------- 162 CHARACTER(len=100), INTENT(INOUT) :: cd_dir ! Root directory for location of ice-if files 163 TYPE(FLD_N), INTENT(INOUT) :: sd_ice ! informations about the fields to be read 164 165 #if defined key_mpp_mpi 166 CALL mpp_bcast(cd_dir, 100) 167 CALL fld_n_bcast(sd_ice) 168 #endif 169 END SUBROUTINE if_namelist 149 170 !!====================================================================== 150 171 END MODULE sbcice_if
Note: See TracChangeset
for help on using the changeset viewer.