Changeset 1089
- Timestamp:
- 2008-06-09T10:33:47+02:00 (16 years ago)
- Location:
- trunk/NEMO/TOP_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/CFC/trclsm_cfc.F90
r1070 r1089 41 41 !! ** input : Namelist namcfc 42 42 !!---------------------------------------------------------------------- 43 CHARACTER (len=32) :: clname = 'namelist .sms.cfc'43 CHARACTER (len=32) :: clname = 'namelist_cfc' 44 44 INTEGER :: numnat 45 45 !! -
trunk/NEMO/TOP_SRC/LOBSTER/trclsm_lobster.F90
r1071 r1089 62 62 ! ! Open the namelist file 63 63 ! ! ---------------------- 64 clname ='namelist .sms.lobster'64 clname ='namelist_lobster' 65 65 CALL ctlopn( numnat, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL', & 66 66 & 1, numout, .FALSE., 1 ) -
trunk/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90
r1073 r1089 61 61 ! ! Open the namelist file 62 62 ! ! ---------------------- 63 clname ='namelist .sms.pisces'63 clname ='namelist_pisces' 64 64 CALL ctlopn( numnat, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL', & 65 65 & 1, numout, .FALSE., 1 ) -
trunk/NEMO/TOP_SRC/trclec.F90
r1077 r1089 92 92 IF(lwp) WRITE(numout,*) '~~~~~~~' 93 93 94 clname = 'namelist .passivetrc'94 clname = 'namelist_top' 95 95 CALL ctlopn( numnat, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL', & 96 96 & 1, numout, .FALSE., 1 )
Note: See TracChangeset
for help on using the changeset viewer.