Ignore:
Timestamp:
2012-03-05T17:03:27+01:00 (9 years ago)
Author:
cetlod
Message:

trunk:minor bugs corrections, see ticket #929

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r3294 r3319  
    5656      IF( nn_timing == 1 )   CALL timing_start('trc_stp') 
    5757      ! 
    58       IF( kt == nittrc000 ) THEN 
    59                                CALL iom_close( numrtr )     ! close input  passive tracers restart file 
    60          IF( lk_trdmld_trc  )  CALL trd_mld_trc_init        ! trends: Mixed-layer 
    61       ENDIF 
     58      IF( kt == nittrc000 .AND. lk_trdmld_trc )  CALL trd_mld_trc_init    ! trends: Mixed-layer 
    6259      ! 
    63       IF( lk_vvl ) THEN                              ! update ocean volume due to ssh temporal evolution 
     60      IF( lk_vvl ) THEN                                                   ! update ocean volume due to ssh temporal evolution 
    6461         DO jk = 1, jpk 
    6562            cvol(:,:,jk) = e1e2t(:,:) * fse3t(:,:,jk) * tmask(:,:,jk) 
    6663         END DO 
    67          IF( lk_degrad )  cvol(:,:,:) = cvol(:,:,:) * facvol(:,:,:)      ! degrad option: reduction by facvol 
     64         IF( lk_degrad )  cvol(:,:,:) = cvol(:,:,:) * facvol(:,:,:)       ! degrad option: reduction by facvol 
    6865         areatot         = glob_sum( cvol(:,:,:) ) 
    6966      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.