Changeset 15190 for NEMO/trunk/src/OCE

Timestamp:

2021-08-13T14:52:50+02:00 (3 years ago)

Author:

gsamson

Message:

correct year (4 digits) & month (2 digits) formats for non-climatological runoff files

File:

• NEMO/trunk/src/OCE/SBC/sbcrnf.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/SBC/sbcrnf.F90

@@ -519 +519 @@
       !
       cl_rnfile = TRIM( cn_dir )//TRIM( sn_cnf%clname )
-      IF( .NOT. sn_cnf%ln_clim ) THEN   ;   WRITE(cl_rnfile, '(a,"_y",i4)' ) TRIM( cl_rnfile ), nyear    ! add year
-         IF( sn_cnf%clftyp == 'monthly' )   WRITE(cl_rnfile, '(a,"m",i2)'  ) TRIM( cl_rnfile ), nmonth   ! add month
+      IF( .NOT. sn_cnf%ln_clim ) THEN   ;   WRITE(cl_rnfile, '(a,"_y",i4.4)' ) TRIM( cl_rnfile ), nyear    ! add year
+         IF( sn_cnf%clftyp == 'monthly' )   WRITE(cl_rnfile, '(a,"m" ,i2.2)' ) TRIM( cl_rnfile ), nmonth   ! add month
       ENDIF
       !