Changeset 3273


Ignore:
Timestamp:
2012-01-23T10:36:24+01:00 (9 years ago)
Author:
cetlod
Message:

dev_NEMO_MERGE_2011:Correction of wrong initialisation in sbcana.F90, see ticket #915

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

    r2977 r3273  
    8989         nn_tau000 = MAX( nn_tau000, 1 )     ! must be >= 1 
    9090         ! 
     91         qns (:,:) = rn_qns0 
     92         qsr (:,:) = rn_qsr0 
     93         emp (:,:) = rn_emp0 
     94         emps(:,:) = rn_emp0 
     95         ! 
     96         utau(:,:) = rn_utau0 
     97         vtau(:,:) = rn_vtau0 
     98         taum(:,:) = SQRT ( rn_utau0 * rn_utau0 + rn_vtau0 * rn_vtau0 ) 
     99         wndm(:,:) = SQRT ( taum(1,1) /  ( zrhoa * zcdrag ) ) 
     100         ! 
    91101      ENDIF 
    92102 
    93       qns (:,:) = rn_qns0 
    94       qsr (:,:) = rn_qsr0 
    95       emp (:,:) = rn_emp0 
    96       emps(:,:) = rn_emp0 
    97103    
    98104      ! Increase the surface stress to its nominal value during the first nn_tau000 time-steps 
Note: See TracChangeset for help on using the changeset viewer.