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

Changeset 847


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

bug in computation of ocean volume in case of degrad option, see ticket:85

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_001_GM/NEMO/TOP_SRC/initrc.F90

    r773 r847  
    5353      INTEGER ::   jk, jn    ! dummy loop indices 
    5454      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zbt   ! workspace: masked grid volume 
     55      CHARACTER (len=25) :: charout 
     56 
    5557      !!--------------------------------------------------------------------- 
    5658 
     
    6466      END DO 
    6567#if defined key_off_degrad 
    66       zbt(:,:,:) = zbt(:,:,:) * facvol(:,:,jk)      ! degrad option: reduction by facvol 
     68      DO jk = 1, jpk 
     69         zbt(:,:,:) = zbt(:,:,:) * facvol(:,:,jk)      ! degrad option: reduction by facvol 
     70      ENDDO 
    6771#endif 
    6872 
     
    98102      IF( ln_ctl )   CALL prt_ctl_trc_init      ! control print 
    99103      ! 
     104 
     105      IF(ln_ctl) THEN      ! print mean trends (used for debugging) 
     106         WRITE(charout, FMT="('ini ')") 
     107         CALL prt_ctl_trc_info( charout ) 
     108         CALL prt_ctl_trc( tab4d=trn, mask=tmask, clinfo=ctrcnm ) 
     109      ENDIF 
     110 
    100111   END SUBROUTINE ini_trc 
    101112 
Note: See TracChangeset for help on using the changeset viewer.