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 2325 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/opa.F90 – NEMO

Ignore:
Timestamp:
2010-10-28T10:58:09+02:00 (13 years ago)
Author:
cetlod
Message:

Improvment of trabbc.F90 routine ( by gm ) : dynamical allocation + suppression of key_trabbc

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/opa.F90

    r2303 r2325  
    288288      !                                     ! Active tracers 
    289289                            CALL tra_qsr_init   ! penetrative solar radiation qsr 
    290       IF( lk_trabbc     )   CALL tra_bbc_init   ! bottom heat flux 
     290                            CALL tra_bbc_init   ! bottom heat flux 
    291291      IF( lk_trabbl     )   CALL tra_bbl_init   ! advective (and/or diffusive) bottom boundary layer scheme 
    292292      IF( lk_tradmp     )   CALL tra_dmp_init   ! internal damping trends 
Note: See TracChangeset for help on using the changeset viewer.