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

Changeset 1443


Ignore:
Timestamp:
2009-05-12T15:52:19+02:00 (15 years ago)
Author:
rblod
Message:

Compilation error with gfortran, see ticket #418

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DYN/dynspg.F90

    r1241 r1443  
    7272      !                                                     
    7373      CASE ( -1 )                                       ! esopa: test all possibility with control print 
    74          ;              CALL dyn_spg_exp    ( kt ) 
    75          ;              CALL prt_ctl( tab3d_1=ua, clinfo1=' spg0 - Ua: ', mask1=umask, & 
     74                       CALL dyn_spg_exp    ( kt ) 
     75                       CALL prt_ctl( tab3d_1=ua, clinfo1=' spg0 - Ua: ', mask1=umask, & 
    7676            &                         tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    77          ;              CALL dyn_spg_ts     ( kt ) 
    78          ;              CALL prt_ctl( tab3d_1=ua, clinfo1=' spg1 - Ua: ', mask1=umask, & 
     77                       CALL dyn_spg_ts     ( kt ) 
     78                       CALL prt_ctl( tab3d_1=ua, clinfo1=' spg1 - Ua: ', mask1=umask, & 
    7979            &                         tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    80          ;              CALL dyn_spg_flt  ( kt, kindic ) 
    81          ;              CALL prt_ctl( tab3d_1=ua, clinfo1=' spg2 - Ua: ', mask1=umask, & 
     80                       CALL dyn_spg_flt  ( kt, kindic ) 
     81                       CALL prt_ctl( tab3d_1=ua, clinfo1=' spg2 - Ua: ', mask1=umask, & 
    8282            &                         tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    8383      END SELECT 
Note: See TracChangeset for help on using the changeset viewer.