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 190 – NEMO

Changeset 190


Ignore:
Timestamp:
2004-12-22T16:32:49+01:00 (19 years ago)
Author:
opalod
Message:

CT : BUGFIX131 : suppress the use of ln_diaptr in opa.F90 and set the default value of ln_diaptr to FALSE in diaptr.F90

Location:
trunk/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DIA/diaptr.F90

    r184 r190  
    3838   !! * Share Module variables 
    3939   LOGICAL, PUBLIC ::   & !!! ** init namelist (namptr) ** 
    40       ln_diaptr = .TRUE.   !: Poleward transport flag (T) or not (F) 
     40      ln_diaptr = .FALSE.   !: Poleward transport flag (T) or not (F) 
    4141   INTEGER, PUBLIC ::   &  !!: ** ptr namelist (namptr) ** 
    4242      nf_ptr = 15           !: frequency of ptr computation 

  • trunk/NEMO/OPA_SRC/opa.F90

    r145 r190  
    200200      CALL flx_fwb_init                     ! FreshWater Budget correction 
    201201 
    202       IF( ln_diaptr ) CALL dia_ptr_init     ! Poleward TRansports initialization 
     202      CALL dia_ptr_init                     ! Poleward TRansports initialization 
    203203 
    204204      !                                     ! =============== ! 
Note: See TracChangeset for help on using the changeset viewer.