New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1037 for trunk/NEMO/OPA_SRC/SBC/sbcana.F90 – NEMO

Ignore:
Timestamp:
2008-05-30T18:21:28+02:00 (16 years ago)
Author:
ctlod
Message:

trunk: replace freeze(:,:) variable with fr_i(:,:), use the tfreez function defined in eosbn2.F90 and remove the useless ocfzpt.F90 module, see ticket: #177

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/SBC/sbcana.F90

    r1028 r1037  
    1616   USE phycst          ! physical constants 
    1717   USE daymod          ! calendar 
    18    USE ocfzpt          ! ocean freezing point 
    1918   USE in_out_manager  ! I/O manager 
    2019   USE lib_mpp         ! distribued memory computing library 
    … …  
    3635   REAL(wp) ::   rn_emp0   = 0.e0   ! net freshwater flux 
    3736  
    38    REAL(wp) ::   rhoa  = 1.22         ! Air density kg/m3 
    39    REAL(wp) ::   cdrag    = 1.5e-3      ! drag coefficient 
     37   REAL(wp) ::   rhoa      = 1.22   ! Air density kg/m3 
     38   REAL(wp) ::   cdrag     = 1.5e-3 ! drag coefficient 
    4039   
    4140   !! * Substitutions 
Note: See TracChangeset for help on using the changeset viewer.