- Timestamp:
- 2008-03-13T14:16:39+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcctl.lobster1.h90
r764 r846 17 17 ! Check number of tracers 18 18 ! ----------------------- 19 IF (jp tra/= 6) THEN19 IF (jp_lobster /= 6) THEN 20 20 IF (lwp) THEN 21 21 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 22 22 WRITE (numout,*) ' ======= ============= ' 23 23 WRITE (numout,*) & 24 & ' STOP, change jp trato 6 in ' &24 & ' STOP, change jp_lobster to 6 in ' & 25 25 & ,'parameter.passivetrc.lobster1.h ' 26 26 END IF … … 55 55 WRITE (numout,*) ' ======= ============= ' 56 56 WRITE (numout,*) ' we force tracer names' 57 DO jn = 1, jptra57 DO jn = jp_lob0, jp_lob1 58 58 WRITE(numout,*) ' tracer nb: ',jn,' name = ',ctrcnm(jn), ctrcnl(jn) 59 59 END DO … … 63 63 64 64 ! Check tracer units 65 DO jn = 1, jptra65 DO jn = jp_lob0, jp_lob1 66 66 IF( ctrcun(jn) /= 'mmole-N/m3') THEN 67 67 ctrcun(jn)='mmole-N/m3'
Note: See TracChangeset
for help on using the changeset viewer.