Ignore:
Timestamp:
2012-11-28T11:02:28+01:00 (8 years ago)
Author:
cbricaud
Message:

split lines which are too long in some bdy routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r3651 r3703  
    200200                  ENDIF 
    201201                  IF (nn_tra(ib_bdy).ne.4) THEN 
    202                      IF (nn_dyn2d_dta(ib_bdy).eq.1.or.nn_dyn2d_dta(ib_bdy).eq.3.or.(ln_full_vel_array(ib_bdy).and.nn_dyn3d_dta(ib_bdy).eq.1)) THEN 
     202                     IF( nn_dyn2d_dta(ib_bdy) .EQ. 1 .OR. nn_dyn2d_dta(ib_bdy) .EQ. 3 .OR.  & 
     203                       & (ln_full_vel_array(ib_bdy) .AND. nn_dyn3d_dta(ib_bdy).eq.1) )THEN 
     204 
    203205                        ! For the runoff case, no need to update the forcing (already done in the baroclinic part) 
    204206                        jend = nb_bdy_fld(ib_bdy) 
    205207                        IF ( nn_tra(ib_bdy) .GT. 0 .AND. nn_tra_dta(ib_bdy) .GE. 1 ) jend = jend - 2 
    206                         CALL fld_read( kt=kt, kn_fsbc=1, sd=bf(jstart:jend), map=nbmap_ptr(jstart:jend), jit=jit, time_offset=time_offset ) 
     208                        CALL fld_read( kt=kt, kn_fsbc=1, sd=bf(jstart:jend), map=nbmap_ptr(jstart:jend),  & 
     209                                     & jit=jit, time_offset=time_offset ) 
    207210                        IF ( nn_tra(ib_bdy) .GT. 0 .AND. nn_tra_dta(ib_bdy) .GE. 1 ) jend = jend + 2 
     211 
    208212                        ! If full velocities in boundary data then split into barotropic and baroclinic data 
    209                         IF( ln_full_vel_array(ib_bdy) .and.                                             & 
    210                        &    ( nn_dyn2d_dta(ib_bdy) .eq. 1 .or. nn_dyn2d_dta(ib_bdy) .eq. 3 .or. nn_dyn3d_dta(ib_bdy) .eq. 1 ) ) THEN 
     213                        IF( ln_full_vel_array(ib_bdy) .AND.                                             & 
     214                          &    ( nn_dyn2d_dta(ib_bdy) .EQ. 1 .OR. nn_dyn2d_dta(ib_bdy) .EQ. 3 .OR.  & 
     215                          &      nn_dyn3d_dta(ib_bdy) .EQ. 1 ) )THEN 
     216 
    211217                           igrd = 2                      ! zonal velocity 
    212218                           dta_bdy(ib_bdy)%u2d(:) = 0.0 
     
    248254               IF (nn_tra(ib_bdy).eq.4) then      ! runoff condition 
    249255                  jend = nb_bdy_fld(ib_bdy) 
    250                   CALL fld_read( kt=kt, kn_fsbc=1, sd=bf(jstart:jend), map=nbmap_ptr(jstart:jend), time_offset=time_offset ) 
     256                  CALL fld_read( kt=kt, kn_fsbc=1, sd=bf(jstart:jend),  & 
     257                               & map=nbmap_ptr(jstart:jend), time_offset=time_offset ) 
    251258                  ! 
    252259                  igrd = 2                      ! zonal velocity 
     
    271278                  IF( nb_bdy_fld(ib_bdy) .gt. 0 ) THEN ! update external data 
    272279                     jend = nb_bdy_fld(ib_bdy) 
    273                      CALL fld_read( kt=kt, kn_fsbc=1, sd=bf(jstart:jend), map=nbmap_ptr(jstart:jend), time_offset=time_offset ) 
     280                     CALL fld_read( kt=kt, kn_fsbc=1, sd=bf(jstart:jend), & 
     281                                  & map=nbmap_ptr(jstart:jend), time_offset=time_offset ) 
    274282                  ENDIF 
    275283                  ! If full velocities in boundary data then split into barotropic and baroclinic data 
    276284                  IF( ln_full_vel_array(ib_bdy) .and.                                             & 
    277                  &    ( nn_dyn2d_dta(ib_bdy) .eq. 1 .or. nn_dyn2d_dta(ib_bdy) .eq. 3 .or. nn_dyn3d_dta(ib_bdy) .eq. 1 ) ) THEN 
     285                    & ( nn_dyn2d_dta(ib_bdy) .EQ. 1 .OR. nn_dyn2d_dta(ib_bdy) .EQ. 3 .OR. & 
     286                    &   nn_dyn3d_dta(ib_bdy) .EQ. 1 ) ) THEN 
    278287                     igrd = 2                      ! zonal velocity 
    279288                     dta_bdy(ib_bdy)%u2d(:) = 0.0 
     
    306315                  ENDIF 
    307316                  IF( nn_dyn2d(ib_bdy) .gt. 0 .and. nn_dyn2d_dta(ib_bdy) .ge. 2 ) THEN ! update tidal harmonic forcing 
    308                      CALL bdytide_update( kt=kt, idx=idx_bdy(ib_bdy), dta=dta_bdy(ib_bdy), td=tides(ib_bdy), time_offset=time_offset ) 
     317                     CALL bdytide_update( kt=kt, idx=idx_bdy(ib_bdy), dta=dta_bdy(ib_bdy),  & 
     318                                        & td=tides(ib_bdy), time_offset=time_offset ) 
    309319                  ENDIF 
    310320               ENDIF 
Note: See TracChangeset for help on using the changeset viewer.