New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 283 – NEMO

Changeset 283


Ignore:
Timestamp:
2005-09-22T12:24:53+02:00 (19 years ago)
Author:
opalod
Message:

nemo_v1_compil_003 : CT : remove too long lines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/FLO/flodom.F90

    r247 r283  
    1616   USE dom_oce         ! ocean space and time domain 
    1717   USE flo_oce         ! ocean drifting floats 
    18 !  USE floats 
    1918   USE in_out_manager  ! I/O manager 
    2019   USE lib_mpp         ! distribued memory computing library 
     
    181180                  ! 
    182181              
    183                   zdxab = dstnce(flxx(jfl),flyy(jfl),glamf(iimfl(jfl)-1,ijmfl(jfl)-1),flyy(jfl)) 
    184                   zdyad = dstnce(flxx(jfl),flyy(jfl),flxx(jfl),gphif(iimfl(jfl)-1,ijmfl(jfl)-1)) 
     182                  zdxab = dstnce( flxx(jfl), flyy(jfl), glamf(iimfl(jfl)-1,ijmfl(jfl)-1), flyy(jfl) ) 
     183                  zdyad = dstnce( flxx(jfl), flyy(jfl), flxx(jfl), gphif(iimfl(jfl)-1,ijmfl(jfl)-1) ) 
    185184                   
    186185                  ! Translation of this distances (in meter) in indexes 
     
    188187                  zgifl(jfl-jpnrstflo)= (iimfl(jfl)-0.5) + zdxab/e1u(iimfl(jfl)-1,ijmfl(jfl)) + (mig(1)-jpizoom) 
    189188                  zgjfl(jfl-jpnrstflo)= (ijmfl(jfl)-0.5) + zdyad/e2v(iimfl(jfl),ijmfl(jfl)-1) + (mjg(1)-jpjzoom) 
    190                   zgkfl(jfl-jpnrstflo) = (( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - flzz(jfl) )* ikmfl(jfl))                       & 
    191                                         / (  fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl) ) )   & 
    192                                         + (( flzz(jfl)-fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) ) *(ikmfl(jfl)+1))                      & 
    193                                         / (  fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) )  
     189                  zgkfl(jfl-jpnrstflo) = (( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - flzz(jfl) )* ikmfl(jfl))   & 
     190                     &                 / (  fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1)                              & 
     191                     &                    - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl) ) )                             & 
     192                     &                 + (( flzz(jfl)-fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) ) *(ikmfl(jfl)+1))   & 
     193                     &                 / (  fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1)                              & 
     194                     &                    - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) ) 
    194195               ELSE 
    195                   zgifl(jfl-jpnrstflo) = 0. 
    196                   zgjfl(jfl-jpnrstflo) = 0. 
    197                   zgkfl(jfl-jpnrstflo) = 0. 
     196                  zgifl(jfl-jpnrstflo) = 0.e0 
     197                  zgjfl(jfl-jpnrstflo) = 0.e0 
     198                  zgkfl(jfl-jpnrstflo) = 0.e0 
    198199               ENDIF 
    199200            END DO 
Note: See TracChangeset for help on using the changeset viewer.