Changeset 806 for branches

Timestamp:

2008-01-31T11:54:07+01:00 (16 years ago)

Author:

ctlod

Message:

dev_001_SBC: cosmetic changes, white space, indentation ..etc, see ticket:#60

File:

• branches/dev_001_SBC/NEMO/OPA_SRC/SBC/fldread.F90 (modified) (3 diffs)

branches/dev_001_SBC/NEMO/OPA_SRC/SBC/fldread.F90

@@ -109 +109 @@
                !
                !                                                                            ! control print
-               IF(lwp) WRITE(numout,*)' fld_read : time-interpolation for ', TRIM( sd(jf)%clvar ),   &
+               IF(lwp) WRITE(numout,*)'fld_read : time-interpolation for ', TRIM( sd(jf)%clvar ),   &
                   &   ' read previous record =', INT(sd(jf)%rec_n(1)), ' at time = ', sd(jf)%rec_n(2)/rday, ' days'
                !
@@ -167 +167 @@
             !                                 ! control print
             IF( sd(jf)%ln_tint ) THEN
-            IF(lwp .AND. nitend - nit000 <= 100 )   WRITE(numout,*)'fld_read: var ', TRIM( sd(jf)%clvar ),   &
-            & ' d/M=', nday,nmonth,' rec bna:', INT(sd(jf)%rec_b(1)), INT(sd(jf)%rec_n(1)),INT(sd(jf)%rec_a(1)), &
-            & ' zrec bna', sd(jf)%rec_b(2)/rday, sd(jf)%rec_n(2)/rday, sd(jf)%rec_a(2)/rday
+               IF(lwp .AND. nitend - nit000 <= 100 )   WRITE(numout,*)'fld_read: var ', TRIM( sd(jf)%clvar ),   &
+                  & ' D/M=', nday,'/',nmonth,' rec bna:', INT(sd(jf)%rec_b(1)), INT(sd(jf)%rec_n(1)),INT(sd(jf)%rec_a(1)), &
+                  & ' zrec bna', sd(jf)%rec_b(2)/rday, sd(jf)%rec_n(2)/rday, sd(jf)%rec_a(2)/rday
             ELSE
-            IF(lwp .AND. nitend - nit000 <= 100 )   WRITE(numout,*)'fld_read: var ', TRIM( sd(jf)%clvar ),   &
-            &   ' D/M=', nday,nmonth, ' record :', INT(sd(jf)%rec_n(1)),     &
-            &   ' at', sd(jf)%rec_n(2)/rday, 'day,  next rec', INT(sd(jf)%rec_a(1))
+               IF(lwp .AND. nitend - nit000 <= 100 )   WRITE(numout,*)'fld_read: var ', TRIM( sd(jf)%clvar ),   &
+                  & ' D/M=', nday,'/',nmonth, ' record :', INT(sd(jf)%rec_n(1)),     &
+                  & ' at', sd(jf)%rec_n(2)/rday, 'day,  next rec', INT(sd(jf)%rec_a(1))
             ENDIF
          ENDIF
@@ -181 +181 @@
             IF( sd(jf)%ln_tint ) THEN                                       !* linear time interpolated field
                zt =  ( rsec_year - sd(jf)%rec_b(2) ) / ( sd(jf)%rec_n(2) - sd(jf)%rec_b(2) )
-      !CDIR COLLAPSE
+!CDIR COLLAPSE
                sd(jf)%fnow(:,:) = ( 1. - zt ) * sd(jf)%fdta(:,:,1) + zt * sd(jf)%fdta(:,:,2)
             ELSE
-      !CDIR COLLAPSE
+!CDIR COLLAPSE
                sd(jf)%fnow(:,:) = sd(jf)%fdta(:,:,2)                        !* piecewise constant field
             ENDIF