Changeset 1133 for trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90
- Timestamp:
- 2008-06-24T17:41:07+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r1037 r1133 107 107 INTEGER, INTENT( in ) :: kt ! ocean time step 108 108 !! 109 INTEGER :: jf ! dummy indices110 109 INTEGER :: ierror ! return error code 111 110 !! … … 125 124 126 125 ! (NB: frequency positive => hours, negative => months) 127 ! ! file ! frequency ! variable ! time intep ! clim ! starting!128 ! ! name ! (hours) ! name ! (T/F) ! ( 0/1) ! record!129 sn_wndi = FLD_N( 'uwnd10m' , 24. , 'u_10' , . FALSE. , 0 , 0)130 sn_wndj = FLD_N( 'vwnd10m' , 24. , 'v_10' , . FALSE. , 0 , 0)131 sn_qsr = FLD_N( 'qsw' , 24. , 'qsw' , . FALSE. , 0 , 0)132 sn_qlw = FLD_N( 'qlw' , 24. , 'qlw' , . FALSE. , 0 , 0)133 sn_tair = FLD_N( 'tair10m' , 24. , 't_10' , . FALSE. , 0 , 0)134 sn_humi = FLD_N( 'humi10m' , 24. , 'q_10' , . FALSE. , 0 , 0)135 sn_prec = FLD_N( 'precip' , -12. , 'precip' , .TRUE. , 0 , 0)136 sn_snow = FLD_N( 'snow' , -12. , 'snow' , .TRUE. , 0 , 0)126 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! 127 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! 128 sn_wndi = FLD_N( 'uwnd10m' , 24. , 'u_10' , .false. , .false. , 'yearly' ) 129 sn_wndj = FLD_N( 'vwnd10m' , 24. , 'v_10' , .false. , .false. , 'yearly' ) 130 sn_qsr = FLD_N( 'qsw' , 24. , 'qsw' , .false. , .false. , 'yearly' ) 131 sn_qlw = FLD_N( 'qlw' , 24. , 'qlw' , .false. , .false. , 'yearly' ) 132 sn_tair = FLD_N( 'tair10m' , 24. , 't_10' , .false. , .false. , 'yearly' ) 133 sn_humi = FLD_N( 'humi10m' , 24. , 'q_10' , .false. , .false. , 'yearly' ) 134 sn_prec = FLD_N( 'precip' , -1. , 'precip' , .true. , .false. , 'yearly' ) 135 sn_snow = FLD_N( 'snow' , -1. , 'snow' , .true. , .false. , 'yearly' ) 137 136 138 137 REWIND( numnam ) ! ... read in namlist namsbc_core … … 151 150 ENDIF 152 151 153 DO jf = 1, jpfld 154 WRITE(sf(jf)%clrootname,'(a,a)' ) TRIM( cn_dir ), TRIM( slf_i(jf)%clname ) 155 sf(jf)%freqh = slf_i(jf)%freqh 156 sf(jf)%clvar = slf_i(jf)%clvar 157 sf(jf)%ln_tint = slf_i(jf)%ln_tint 158 sf(jf)%nclim = slf_i(jf)%nclim 159 sf(jf)%nstrec = slf_i(jf)%nstrec 160 END DO 161 162 IF(lwp) THEN ! control print 163 WRITE(numout,*) 164 WRITE(numout,*) 'sbc_blk_core : flux formulattion for ocean surface boundary condition' 165 WRITE(numout,*) '~~~~~~~~~~~~ ' 166 WRITE(numout,*) ' namsbc_core Namelist' 167 WRITE(numout,*) ' ln_2m = ', ln_2m 168 WRITE(numout,*) ' alpha_precip = ', alpha_precip 169 WRITE(numout,*) ' list of files and frequency (>0: in hours ; <0 in months)' 170 DO jf = 1, jpfld 171 WRITE(numout,*) ' file root name: ' , TRIM( sf(jf)%clrootname ), & 172 & ' variable name: ' , TRIM( sf(jf)%clvar ) 173 WRITE(numout,*) ' frequency: ' , sf(jf)%freqh , & 174 & ' time interp: ' , sf(jf)%ln_tint , & 175 & ' climatology: ' , sf(jf)%nclim , & 176 & ' starting record: ', sf(jf)%nstrec 177 END DO 178 IF( ln_2m ) THEN 179 WRITE(numout,*) ' Calling TURB_CORE_2Z for bulk transfert coefficients' 180 ELSE 181 WRITE(numout,*) ' Calling TURB_CORE_1Z for bulk transfert coefficients' 182 ENDIF 183 WRITE(numout,*) 184 ! 185 ENDIF 152 ! fill sf with slf_i and control print 153 CALL fld_fill( sf, slf_i, cn_dir, 'sbc_blk_core', 'flux formulattion for ocean surface boundary condition', 'namsbc_core' ) 186 154 ! 187 155 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.