- Timestamp:
- 2016-01-12T11:51:52+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r4607 r6231 58 58 !! or read data or analytical formulation 59 59 !!--------------------------------------------------------------------- 60 INTEGER :: j k, jn, jl ! dummy loop indices60 INTEGER :: ji,jj,jk, jn, jl ! dummy loop indices 61 61 CHARACTER (len=25) :: charout 62 62 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrcdta ! 4D workspace … … 138 138 ENDIF 139 139 ! 140 trn(:,:,:,:) = MAX(0., trn(:,:,:,:) ) 140 141 trb(:,:,:,:) = trn(:,:,:,:) 141 142 ! 142 ENDIF 143 143 ENDIF 144 144 145 tra(:,:,:,:) = 0._wp 145 146
Note: See TracChangeset
for help on using the changeset viewer.