Changeset 7861 for trunk/NEMOGCM/NEMO/OPA_SRC/BDY
- Timestamp:
- 2017-03-31T15:45:05+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r7857 r7861 674 674 ! Test for types of ice input (lim2 or lim3) 675 675 ! Build file name to find dimensions 676 clname=TRIM( bn_a_i%clname)676 clname=TRIM( cn_dir )//TRIM(bn_a_i%clname) 677 677 IF( .NOT. bn_a_i%ln_clim ) THEN 678 WRITE(clname, '(a,"_y",i4.4)' ) TRIM( bn_a_i%clname ), nyear ! add year679 IF( bn_a_i%cltype /= 'yearly' ) WRITE(clname, '(a,"m" ,i2.2)' ) TRIM( clname 678 WRITE(clname, '(a,"_y",i4.4)' ) TRIM( clname ), nyear ! add year 679 IF( bn_a_i%cltype /= 'yearly' ) WRITE(clname, '(a,"m" ,i2.2)' ) TRIM( clname ), nmonth ! add month 680 680 ELSE 681 IF( bn_a_i%cltype /= 'yearly' ) WRITE(clname, '(a,"_m",i2.2)' ) TRIM( bn_a_i%clname ), nmonth ! add month681 IF( bn_a_i%cltype /= 'yearly' ) WRITE(clname, '(a,"_m",i2.2)' ) TRIM( clname ), nmonth ! add month 682 682 ENDIF 683 683 IF( bn_a_i%cltype == 'daily' .OR. bn_a_i%cltype(1:4) == 'week' ) & 684 & WRITE(clname, '(a,"d" ,i2.2)' ) TRIM( clname 684 & WRITE(clname, '(a,"d" ,i2.2)' ) TRIM( clname ), nday ! add day 685 685 ! 686 686 CALL iom_open ( clname, inum )
Note: See TracChangeset
for help on using the changeset viewer.