- Timestamp:
- 2020-05-22T09:05:34+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/TOP/trcini.F90
r12377 r12960 93 93 INTEGER :: jk, jn ! dummy loop indices 94 94 CHARACTER (len=25) :: charout 95 REAL(wp), DIMENSION(jpi,jpj,jpk,jptra) :: zzmsk 96 CHARACTER (len=25), DIMENSION(jptra) :: clseb 95 97 !!---------------------------------------------------------------------- 96 98 ! … … 128 130 CALL prt_ctl_trc_info( charout ) 129 131 CALL prt_ctl_trc( tab4d=tr(:,:,:,:,Kmm), mask=tmask, clinfo=ctrcnm ) 132 DO jn = 1, jptra 133 zzmsk(:,:,:,jn) = tmask(:,:,:) 134 WRITE(clseb(jn),'(a,i2.2)') 'seb ', jn 135 END DO 136 CALL prt_ctl_trc( tab4d=zzmsk, mask=tmask, clinfo=clseb ) 130 137 ENDIF 131 138 9000 FORMAT(' tracer nb : ',i2,' name :',a10,' initial content :',e18.10)
Note: See TracChangeset
for help on using the changeset viewer.