Changeset 847
- Timestamp:
- 2008-03-13T14:25:25+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/initrc.F90
r773 r847 53 53 INTEGER :: jk, jn ! dummy loop indices 54 54 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zbt ! workspace: masked grid volume 55 CHARACTER (len=25) :: charout 56 55 57 !!--------------------------------------------------------------------- 56 58 … … 64 66 END DO 65 67 #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 67 71 #endif 68 72 … … 98 102 IF( ln_ctl ) CALL prt_ctl_trc_init ! control print 99 103 ! 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 100 111 END SUBROUTINE ini_trc 101 112
Note: See TracChangeset
for help on using the changeset viewer.