Changeset 6898 for branches/2016/dev_r6409_SIMPLIF_2_usrdef
- Timestamp:
- 2016-08-26T17:09:14+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/OVERFLOW/MY_SRC/usrdef_sbc.F90
r6895 r6898 53 53 INTEGER, INTENT(in) :: kt ! ocean time step 54 54 !! 55 INTEGER :: nn_tau000 = 0 ! spin up of the stress56 REAL(wp) :: rn_utau0 = 0.e0 ! uniform value for the i-stress57 REAL(wp) :: rn_vtau0 = 0.e0 ! uniform value for the j-stress58 REAL(wp) :: rn_qns0 = 0.e0 ! uniform value for the total heat flux59 REAL(wp) :: rn_qsr0 = 0.e0 ! uniform value for the solar radiation60 REAL(wp) :: rn_emp0 = 0.e0 ! uniform value for the freswater budget (E-P)61 !62 55 !!--------------------------------------------------------------------- 63 56 ! … … 65 58 ! 66 59 IF(lwp) WRITE(numout,*)' usr_sbc : OVERFLOW case: NO surface forcing' 67 IF(lwp) WRITE(numout,*)' ~~~~~~~ ' 68 IF(lwp) WRITE(numout,*)' spin up of the stress nn_tau000 = ', nn_tau000, ' time-steps' 69 IF(lwp) WRITE(numout,*)' constant j-stress rn_vtau0 = ', rn_vtau0 , ' N/m2' 70 IF(lwp) WRITE(numout,*)' non solar heat flux rn_qns0 = ', rn_qns0 , ' W/m2' 71 IF(lwp) WRITE(numout,*)' solar heat flux rn_qsr0 = ', rn_qsr0 , ' W/m2' 72 IF(lwp) WRITE(numout,*)' net heat flux rn_emp0 = ', rn_emp0 , ' Kg/m2/s' 60 IF(lwp) WRITE(numout,*)' ~~~~~~~~~~~ utau = vtau = taum = wndm = qns = qsr = emp = sfx = 0' 73 61 ! 74 utau(:,:) = rn_utau075 vtau(:,:) = rn_vtau062 utau(:,:) = 0.0_wp 63 vtau(:,:) = 0._wp 76 64 taum(:,:) = 0.0_wp 77 65 wndm(:,:) = 0.0_wp 78 66 ! 79 emp (:,:) = rn_emp067 emp (:,:) = 0.0_wp 80 68 sfx (:,:) = 0.0_wp 81 69 qns (:,:) = 0.0_wp 82 qsr (:,:) = rn_qsr070 qsr (:,:) = 0.0_wp 83 71 ! 84 72 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.