Ignore:
Timestamp:
2008-05-30T11:47:14+02:00 (13 years ago)
Author:
cetlod
Message:

Update CFC modules to take into account the re-organization of TOP initialization phase, see ticket 168

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/CFC/trcini_cfc.F90

    r933 r1004  
    5252      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 
    5353 
     54 
    5455      ! Initialization of boundaries conditions 
    5556      ! ---------------------------------------  
     
    7374         ENDIF 
    7475         DO jn = jp_cfc0, jp_cfc1 
    75             qint(:,:,jn) = 0.e0 
     76            trn(:,:,:,jn) = 0.e0 
     77            qint(:,: ,jn) = 0.e0 
    7678         END DO 
    7779      ENDIF 
     
    134136      END DO 
    135137      ! 
     138 
     139      IF(lwp) WRITE(numout,*) 'Initialization of CFC tracers done' 
     140      IF(lwp) WRITE(numout,*) ' ' 
     141 
    136142   END SUBROUTINE trc_ini_cfc 
    137143    
Note: See TracChangeset for help on using the changeset viewer.