Changeset 10817 for NEMO/trunk/src/TOP
- Timestamp:
- 2019-03-29T18:23:45+01:00 (5 years ago)
- Location:
- NEMO/trunk/src/TOP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/trcini_pisces.F90
r10425 r10817 275 275 276 276 ! Initialization of the sediment model 277 IF( ln_sediment) THEN 278 CALL sed_init 279 ELSE 280 ALLOCATE( profsed(2) ) 281 ENDIF 277 IF( ln_sediment) CALL sed_init 282 278 283 279 IF(lwp) WRITE(numout,*) -
NEMO/trunk/src/TOP/trcini.F90
r10570 r10817 181 181 IF( ln_c14 ) CALL trc_ini_c14 ! C14 model 182 182 IF( ln_age ) CALL trc_ini_age ! AGE 183 IF( .NOT.ln_pisces ) ALLOCATE( profsed(2) )184 183 ! 185 184 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.