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

Changeset 848


Ignore:
Timestamp:
2008-03-13T14:29:17+01:00 (16 years ago)
Author:
cetlod
Message:

initialisation of CFC : add the key_cfc to take it into account , see ticket:86

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_001_GM/NEMO/TOP_SRC/trcdtr.F90

    r773 r848  
    5353      IF(lwp) WRITE(numout,*) '~~~~~~~' 
    5454 
    55       IF( lk_cfc ) THEN 
    56          DO jn = jp_cfc0,jp_cfc1 
    57             trn(:,:,:,jn) = 0.e0      ! CFC initialisation to zera 
    58          END DO 
    59       ENDIF 
    60        
    61 # if defined key_pisces 
     55#if defined key_cfc 
     56      trn(:,:,:,:) = 0.0  ! CFC initialisation to zero 
     57  
     58#elif defined key_pisces 
    6259      ! PISCES initialisation 
    6360      ! --------------------- 
Note: See TracChangeset for help on using the changeset viewer.