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