Changeset 1581 for trunk/NEMO/TOP_SRC/CFC
- Timestamp:
- 2009-08-05T16:53:12+02:00 (15 years ago)
- Location:
- trunk/NEMO/TOP_SRC/CFC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/CFC/trcini_cfc.F90
r1542 r1581 16 16 USE trc ! TOP variables 17 17 USE trcsms_cfc ! CFC sms trends 18 USE in_out_manager ! I/O manager 18 19 19 20 IMPLICIT NONE … … 21 22 22 23 PUBLIC trc_ini_cfc ! called by trcini.F90 module 23 24 CHARACTER (len=34) :: clname = 'cfc1112.atm' ! ???25 24 26 25 INTEGER :: inum ! unit number … … 89 88 IF(lwp) WRITE(numout,*) 'read of formatted file cfc1112atm' 90 89 91 CALL ctlopn( inum, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL', & 92 & 1, numout, .FALSE., 1 ) 90 CALL ctl_opn( inum, 'cfc1112.atm', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 93 91 REWIND(inum) 94 92 -
trunk/NEMO/TOP_SRC/CFC/trclsm_cfc.F90
r1255 r1581 16 16 USE trc ! TOP variables 17 17 USE trcsms_cfc ! CFC specific variable 18 USE in_out_manager ! I/O manager 18 19 19 20 IMPLICIT NONE … … 41 42 !! ** input : Namelist namcfc 42 43 !!---------------------------------------------------------------------- 43 CHARACTER (len=32) :: clname = 'namelist_cfc'44 44 INTEGER :: numnatc 45 45 #if defined key_trc_diaadd … … 65 65 66 66 ! ! Open namelist file 67 CALL ctl opn( numnatc, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE., 1)67 CALL ctl_opn( numnatc, 'namelist_cfc', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 68 68 69 69 READ( numnatc , namcfcdate ) ! read namelist
Note: See TracChangeset
for help on using the changeset viewer.