Changeset 6898 for branches/2016/dev_r6409_SIMPLIF_2_usrdef

Timestamp:

2016-08-26T17:09:14+02:00 (8 years ago)

Author:

flavoni

Message:

continue ROBUST3, little changes in usrdef_sbc

File:

• branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/OVERFLOW/MY_SRC/usrdef_sbc.F90 (modified) (2 diffs)

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/OVERFLOW/MY_SRC/usrdef_sbc.F90

@@ -53 +53 @@
       INTEGER, INTENT(in) ::   kt   ! ocean time step
       !!
-      INTEGER  ::   nn_tau000   =   0     !  spin up of the stress
-      REAL(wp) ::   rn_utau0    =   0.e0  !  uniform value for the i-stress
-      REAL(wp) ::   rn_vtau0    =   0.e0  !  uniform value for the j-stress
-      REAL(wp) ::   rn_qns0     =   0.e0  !  uniform value for the total heat flux
-      REAL(wp) ::   rn_qsr0     =   0.e0  !  uniform value for the solar radiation
-      REAL(wp) ::   rn_emp0     =   0.e0  !  uniform value for the freswater budget (E-P) 
-      !
       !!---------------------------------------------------------------------
       !
@@ -65 +58 @@
          !
          IF(lwp) WRITE(numout,*)' usr_sbc : OVERFLOW case: NO surface forcing'
-         IF(lwp) WRITE(numout,*)' ~~~~~~~ '
-         IF(lwp) WRITE(numout,*)'              spin up of the stress  nn_tau000 = ', nn_tau000, ' time-steps'
-         IF(lwp) WRITE(numout,*)'              constant j-stress      rn_vtau0  = ', rn_vtau0 , ' N/m2'
-         IF(lwp) WRITE(numout,*)'              non solar heat flux    rn_qns0 = ', rn_qns0  , ' W/m2'
-         IF(lwp) WRITE(numout,*)'              solar heat flux        rn_qsr0 = ', rn_qsr0  , ' W/m2'
-         IF(lwp) WRITE(numout,*)'              net heat flux          rn_emp0 = ', rn_emp0  , ' Kg/m2/s'
+         IF(lwp) WRITE(numout,*)' ~~~~~~~~~~~   utau = vtau = taum = wndm = qns = qsr = emp = sfx = 0'
          !
-         utau(:,:) = rn_utau0
-         vtau(:,:) = rn_vtau0
+         utau(:,:) = 0.0_wp
+         vtau(:,:) = 0._wp
          taum(:,:) = 0.0_wp
          wndm(:,:) = 0.0_wp
          !
-         emp (:,:) = rn_emp0
+         emp (:,:) = 0.0_wp
          sfx (:,:) = 0.0_wp
          qns (:,:) = 0.0_wp
-         qsr (:,:) = rn_qsr0
+         qsr (:,:) = 0.0_wp
          !         
       ENDIF