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 2914 – NEMO

Changeset 2914


Ignore:
Timestamp:
2011-10-13T16:26:43+02:00 (12 years ago)
Author:
kpedwards
Message:

Fix typos to variables names.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

    r2910 r2914  
    135135#if defined key_traldf_eiv 
    136136#  if defined key_traldf_c3d 
    137           aieu_tm  (:,:,:)       = aieu_tm  (:,:,:)       + aieu(:,:,:)         * fse3u(:,:,:) 
    138           aiev_tm  (:,:,:)       = aiev_tm  (:,:,:)       + aiev(:,:,:)         * fse3v(:,:,:) 
    139           aiew_tm  (:,:,:)       = aiew_tm  (:,:,:)       + aiew(:,:,:)         * fse3w(:,:,:) 
     137          aeiu_tm  (:,:,:)       = aeiu_tm  (:,:,:)       + aeiu(:,:,:)         * fse3u(:,:,:) 
     138          aeiv_tm  (:,:,:)       = aeiv_tm  (:,:,:)       + aeiv(:,:,:)         * fse3v(:,:,:) 
     139          aeiw_tm  (:,:,:)       = aeiw_tm  (:,:,:)       + aeiw(:,:,:)         * fse3w(:,:,:) 
    140140#  elif defined key_traldf_c2d 
    141           aieu_tm  (:,:)         = aieu_tm  (:,:)         + aieu(:,:) 
    142           aiev_tm  (:,:)         = aiev_tm  (:,:)         + aiev(:,:) 
    143           aiew_tm  (:,:)         = aiew_tm  (:,:)         + aiew(:,:) 
     141          aeiu_tm  (:,:)         = aeiu_tm  (:,:)         + aeiu(:,:) 
     142          aeiv_tm  (:,:)         = aeiv_tm  (:,:)         + aeiv(:,:) 
     143          aeiw_tm  (:,:)         = aeiw_tm  (:,:)         + aeiw(:,:) 
    144144#  elif defined key_traldf_c1d 
    145           aieu_tm  (:)           = aieu_tm  (:,:)         + aieu(:) 
    146           aiev_tm  (:)           = aiev_tm  (:,:)         + aiev(:) 
    147           aiew_tm  (:)           = aiew_tm  (:,:)         + aiew(:) 
     145          aeiu_tm  (:)           = aeiu_tm  (:,:)         + aeiu(:) 
     146          aeiv_tm  (:)           = aeiv_tm  (:,:)         + aeiv(:) 
     147          aeiw_tm  (:)           = aeiw_tm  (:,:)         + aeiw(:) 
    148148#  else 
    149           aieu_tm                = aieu_tm                + aieu 
    150           aiev_tm                = aiev_tm                + aiev 
    151           aiew_tm                = aiew_tm                + aiew 
     149          aeiu_tm                = aeiu_tm                + aeiu 
     150          aeiv_tm                = aeiv_tm                + aeiv 
     151          aeiw_tm                = aeiw_tm                + aeiw 
    152152#  endif 
    153153#endif 
     
    556556#if defined key_traldf_eiv 
    557557#  if defined key_traldf_c3d 
    558       aieu_tm(:,:,:) = aieu(:,:,:) * fse3u(:,:,:) 
    559       aiev_tm(:,:,:) = aiev(:,:,:) * fse3v(:,:,:) 
    560       aiew_tm(:,:,:) = aiew(:,:,:) * fse3w(:,:,:) 
     558      aeiu_tm(:,:,:) = aeiu(:,:,:) * fse3u(:,:,:) 
     559      aeiv_tm(:,:,:) = aeiv(:,:,:) * fse3v(:,:,:) 
     560      aeiw_tm(:,:,:) = aeiw(:,:,:) * fse3w(:,:,:) 
    561561#  elif defined key_traldf_c2d 
    562       aieu_tm(:,:)   = aeiu(:,:) 
    563       aiev_tm(:,:)   = aeiv(:,:) 
    564       aiew_tm(:,:)   = aeiw(:,:) 
     562      aeiu_tm(:,:)   = aeiu(:,:) 
     563      aeiv_tm(:,:)   = aeiv(:,:) 
     564      aeiw_tm(:,:)   = aeiw(:,:) 
    565565#  elif defined key_traldf_c1d 
    566566      aeiu_tm(:)     = aeiu(:) 
     
    762762#  if defined key_traldf_c3d 
    763763      DO jk = 1, jpk 
    764          aieu_tm(:,:,jk) = aieu(:,:,jk) * fse3u(:,:,jk) 
    765          aiev_tm(:,:,jk) = aiev(:,:,jk) * fse3v(:,:,jk) 
    766          aiew_tm(:,:,jk) = aiew(:,:,jk) * fse3w(:,:,jk) 
     764         aeiu_tm(:,:,jk) = aeiu(:,:,jk) * fse3u(:,:,jk) 
     765         aeiv_tm(:,:,jk) = aeiv(:,:,jk) * fse3v(:,:,jk) 
     766         aeiw_tm(:,:,jk) = aeiw(:,:,jk) * fse3w(:,:,jk) 
    767767      END DO 
    768768#  elif defined key_traldf_c2d 
    769       aieu_tm(:,:)   = aeiu(:,:) 
    770       aiev_tm(:,:)   = aeiv(:,:) 
    771       aiew_tm(:,:)   = aeiw(:,:) 
     769      aeiu_tm(:,:)   = aeiu(:,:) 
     770      aeiv_tm(:,:)   = aeiv(:,:) 
     771      aeiw_tm(:,:)   = aeiw(:,:) 
    772772#  elif defined key_traldf_c1d 
    773773      aeiu_tm(:)     = aeiu(:) 
Note: See TracChangeset for help on using the changeset viewer.