Ignore:
Timestamp:
2018-04-27T17:11:03+02:00 (3 years ago)
Author:
clem
Message:

small corrections to make SETTE work

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/SAS_BIPER/MY_SRC/usrdef_sbc.F90

    r9019 r9517  
    6363         IF(lwp)   WRITE(numout,*)' usrdef_sbc_oce : SAS_BIPER case: NO surface forcing' 
    6464         ! --- oce variables --- ! 
    65          utau(:,:) = 0._wp 
     65         utau(:,:) = 0._wp  
    6666         vtau(:,:) = 0._wp 
    6767         taum(:,:) = 0._wp 
     
    7272         qns (:,:) = 0._wp 
    7373         qsr (:,:) = 0._wp 
     74         ! 
     75         utau_b(:,:) = 0._wp  
     76         vtau_b(:,:) = 0._wp 
     77         emp_b (:,:) = 0._wp 
     78         sfx_b (:,:) = 0._wp 
     79         qns_b (:,:) = 0._wp 
    7480         ! 
    7581      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.