- Timestamp:
- 2013-11-04T12:51:55+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90
r3680 r4147 67 67 INTEGER :: ierror ! return error code 68 68 INTEGER :: ifpr, jj,ji,jk 69 INTEGER :: ios ! Local integer output status for namelist read 69 70 REAL(wp),DIMENSION(:,:,:),POINTER :: udummy,vdummy,hdivdummy,rotdummy 70 71 REAL :: z2dt,z1_2dt … … 82 83 IF( kt == nit000 ) THEN ! First call kt=nit000 ! 83 84 ! ! -------------------- ! 84 ! !* set file information (default values)85 ! ... default values (NB: frequency positive => hours, negative => months)86 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation !87 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs !88 sn_cdg = FLD_N('cdg_wave' , 1 ,'drag_coeff', .true. , .false. , 'daily' , '' , '' )89 sn_usd = FLD_N('sdw_wave' , 1 ,'u_sd2d', .true. , .false. , 'daily' , '' , '' )90 sn_vsd = FLD_N('sdw_wave' , 1 ,'v_sd2d', .true. , .false. , 'daily' , '' , '' )91 sn_wn = FLD_N( 'sdw_wave' , 1 ,'wave_num', .true. , .false. , 'daily' , '' , '' )92 cn_dir = './' ! directory in which the wave data are93 85 86 REWIND( numnam_ref ) ! Namelist namsbc_wave in reference namelist : File for drag coeff. from wave model 87 READ ( numnam_ref, namsbc_wave, IOSTAT = ios, ERR = 901) 88 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in reference namelist', lwp ) 94 89 95 REWIND( numnam ) !* read in namlist namsbc_wave 96 READ ( numnam, namsbc_wave ) 90 REWIND( numnam_cfg ) ! Namelist namsbc_wave in configuration namelist : File for drag coeff. from wave model 91 READ ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 92 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwp ) 93 WRITE ( numond, namsbc_wave ) 97 94 ! 98 95
Note: See TracChangeset
for help on using the changeset viewer.