Changeset 1884 for branches/TAM_V3_0/NEMO/OPA_SRC/DYN/dynspg.F90

Timestamp:

2010-05-27T11:26:52+02:00 (14 years ago)

Author:

rblod

Message:

Light adaptation of NEMO direct model routine to handle TAM

File:

• branches/TAM_V3_0/NEMO/OPA_SRC/DYN/dynspg.F90 (modified) (1 diff)

branches/TAM_V3_0/NEMO/OPA_SRC/DYN/dynspg.F90

@@ -70 +70 @@
       CASE (  2 )   ;   CALL dyn_spg_flt    ( kt, kindic )      ! filtered
       CASE (  3 )   ;   CALL dyn_spg_rl     ( kt, kindic )      ! rigid lid
-      !                                                    
+      !
       CASE ( -1 )                                       ! esopa: test all possibility with control print
-         ;              CALL dyn_spg_exp    ( kt )
-         ;              CALL prt_ctl( tab3d_1=ua, clinfo1=' spg0 - Ua: ', mask1=umask, &
+                        CALL dyn_spg_exp    ( kt )
+                        CALL prt_ctl( tab3d_1=ua, clinfo1=' spg0 - Ua: ', mask1=umask, &
             &                         tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' )
-         ;              CALL dyn_spg_ts     ( kt )
-         ;              CALL prt_ctl( tab3d_1=ua, clinfo1=' spg1 - Ua: ', mask1=umask, &
+                        CALL dyn_spg_ts     ( kt )
+                        CALL prt_ctl( tab3d_1=ua, clinfo1=' spg1 - Ua: ', mask1=umask, &
             &                         tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' )
-         ;              CALL dyn_spg_flt  ( kt, kindic )
-         ;              CALL prt_ctl( tab3d_1=ua, clinfo1=' spg2 - Ua: ', mask1=umask, &
+                        CALL dyn_spg_flt  ( kt, kindic )
+                        CALL prt_ctl( tab3d_1=ua, clinfo1=' spg2 - Ua: ', mask1=umask, &
             &                         tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' )
       END SELECT