Changeset 11963 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/fldread.F90

Timestamp:

2019-11-26T12:08:01+01:00 (4 years ago)

Author:

laurent

Message:

More accurate comments/info, better syntax, simplifications, etc

File:

• NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/fldread.F90 (modified) (10 diffs)

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/fldread.F90

@@ -167 +167 @@
       IF( PRESENT(kit) )   ll_firstcall = ll_firstcall .and. kit == 1
 
-      IF ( nn_components == jp_iam_sas ) THEN   ;   it_offset = nn_fsbc
+      IF( nn_components == jp_iam_sas ) THEN   ;   it_offset = nn_fsbc
       ELSE                                      ;   it_offset = 0
       ENDIF
@@ -389 +389 @@
          ENDIF
          !
-         IF ( sdjf%cltype(1:4) == 'week' ) THEN
+         IF( sdjf%cltype(1:4) == 'week' ) THEN
             isec_week = isec_week + ksec_week( sdjf%cltype(6:8) )   ! second since the beginning of the week
             llprevmth = isec_week > nsec_month                      ! longer time since the beginning of the week than the month
@@ -464 +464 @@
       ENDIF
       !
-      IF ( nn_components == jp_iam_sas ) THEN   ;   it_offset = nn_fsbc
+      IF( nn_components == jp_iam_sas ) THEN   ;   it_offset = nn_fsbc
       ELSE                                      ;   it_offset = 0
       ENDIF
@@ -656 +656 @@
             ENDIF
          CASE DEFAULT
-            IF (lk_c1d .AND. lmoor ) THEN
+            IF(lk_c1d .AND. lmoor ) THEN
                IF( sdjf%ln_tint ) THEN
                   CALL iom_get( sdjf%num, jpdom_unknown, sdjf%clvar, sdjf%fdta(2,2,:,2), sdjf%nrec_a(1) )
@@ -1071 +1071 @@
          imonth = kmonth
          iday = kday
-         IF ( sdjf%cltype(1:4) == 'week' ) THEN             ! find the day of the beginning of the week
+         IF( sdjf%cltype(1:4) == 'week' ) THEN             ! find the day of the beginning of the week
             isec_week = ksec_week( sdjf%cltype(6:8) )- (86400 * 8 )  
             llprevmth  = isec_week > nsec_month             ! longer time since beginning of the week than the month
@@ -1080 +1080 @@
          ENDIF
       ELSE                                                  ! use current day values
-         IF ( sdjf%cltype(1:4) == 'week' ) THEN             ! find the day of the beginning of the week
+         IF( sdjf%cltype(1:4) == 'week' ) THEN             ! find the day of the beginning of the week
             isec_week  = ksec_week( sdjf%cltype(6:8) )      ! second since the beginning of the week
             llprevmth  = isec_week > nsec_month             ! longer time since beginning of the week than the month
@@ -1318 +1318 @@
 
       !! get dimensions
-      IF ( SIZE(sd%fnow, 3) > 1 ) THEN
+      IF( SIZE(sd%fnow, 3) > 1 ) THEN
          ALLOCATE( ddims(4) )
       ELSE
@@ -1331 +1331 @@
 
       CALL iom_open ( sd%wgtname, inum )   ! interpolation weights
-      IF ( inum > 0 ) THEN
+      IF( inum > 0 ) THEN
 
          !! determine whether we have an east-west cyclic grid
@@ -1663 +1663 @@
       END DO
 
-      IF (ref_wgts(kw)%numwgt .EQ. 16) THEN
+      IF(ref_wgts(kw)%numwgt .EQ. 16) THEN
 
         !! fix up halo points that we couldnt read from file
@@ -1746 +1746 @@
          END DO
          !
-      END IF
+      ENDIF
       !
    END SUBROUTINE fld_interp