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

Changeset 684


Ignore:
Timestamp:
2007-06-29T18:39:57+02:00 (18 years ago)
Author:
rblod
Message:

nemo_v2_bugfix_051 : SM : remove useless ";"
nemo_v2_bugfix_052: SM : define numror when ln_rstart == .FALSE.

Location:
trunk/NEMO/OPA_SRC
Files:
4 edited

Legend:

Unmodified
Added
Removed

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

    r503 r684  
    3939   !!--------------------------------------------------------------------------------- 
    4040   !!   OPA 9.0 , LOCEAN-IPSL (2005)  
    41    !! $Header$ 
     41   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynldf.F90,v 1.4 2007/06/05 11:02:08 opalod Exp $ 
    4242   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    4343   !!---------------------------------------------------------------------- 
    … …  
    7171      ! 
    7272      CASE ( -1 )                                       ! esopa: test all possibility with control print 
    73          ;              CALL dyn_ldf_lap    ( kt ) 
    74          ;              CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf0 - Ua: ', mask1=umask,   & 
     73                        CALL dyn_ldf_lap    ( kt ) 
     74                        CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf0 - Ua: ', mask1=umask,   & 
    7575            &                         tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    76          ;              CALL dyn_ldf_iso    ( kt ) 
    77          ;              CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf1 - Ua: ', mask1=umask,   & 
     76                        CALL dyn_ldf_iso    ( kt ) 
     77                        CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf1 - Ua: ', mask1=umask,   & 
    7878            &                         tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    79          ;              CALL dyn_ldf_bilap  ( kt ) 
    80          ;              CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf2 - Ua: ', mask1=umask,   & 
     79                        CALL dyn_ldf_bilap  ( kt ) 
     80                        CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf2 - Ua: ', mask1=umask,   & 
    8181            &                         tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    82          ;              CALL dyn_ldf_bilapg ( kt ) 
    83          ;              CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf3 - Ua: ', mask1=umask,   & 
     82                        CALL dyn_ldf_bilapg ( kt ) 
     83                        CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf3 - Ua: ', mask1=umask,   & 
    8484            &                         tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    8585      END SELECT 

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

    r503 r684  
    4242   !!---------------------------------------------------------------------- 
    4343   !!  OPA 9.0 , LOCEAN-IPSL (2005)  
    44    !! $Header$ 
     44   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynzdf.F90,v 1.3 2007/06/05 11:00:28 opalod Exp $ 
    4545   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    4646   !!---------------------------------------------------------------------- 
    … …  
    7878      ! 
    7979      CASE ( -1 )                                      ! esopa: test all possibility with control print 
    80          ;             CALL dyn_zdf_exp    ( kt, r2dt ) 
    81          ;             CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf0 - Ua: ', mask1=umask,               & 
     80                       CALL dyn_zdf_exp    ( kt, r2dt ) 
     81                       CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf0 - Ua: ', mask1=umask,               & 
    8282            &                        tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    83          ;             CALL dyn_zdf_imp    ( kt, r2dt ) 
    84          ;             CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf1 - Ua: ', mask1=umask,               & 
     83                       CALL dyn_zdf_imp    ( kt, r2dt ) 
     84                       CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf1 - Ua: ', mask1=umask,               & 
    8585            &                        tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    86          ;             CALL dyn_zdf_imp_jki( kt, r2dt ) 
    87          ;             CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf2 - Ua: ', mask1=umask,               & 
     86                       CALL dyn_zdf_imp_jki( kt, r2dt ) 
     87                       CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf2 - Ua: ', mask1=umask,               & 
    8888            &                        tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    8989      END SELECT 

  • trunk/NEMO/OPA_SRC/TRA/traadv.F90

    r637 r684  
    4646   !!---------------------------------------------------------------------- 
    4747   !!   OPA 9.0 , LOCEAN-IPSL (2006)  
    48    !! $Header$  
     48   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/TRA/traadv.F90,v 1.7 2007/06/05 11:00:53 opalod Exp $  
    4949   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    5050   !!---------------------------------------------------------------------- 
    … …  
    9797      ! 
    9898      CASE (-1 )                                                     ! esopa: test all possibility with control print 
    99          ;             CALL tra_adv_cen2    ( kt, zun, zvn, zwn ) 
    100          ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' adv0 - Ta: ', mask1=tmask,               & 
    101             &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    102          ;             CALL tra_adv_cen2_jki( kt, zun, zvn, zwn ) 
    103          ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' adv1 - Ta: ', mask1=tmask,               & 
    104             &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    105          ;             CALL tra_adv_tvd     ( kt, zun, zvn, zwn ) 
    106          ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' adv2 - Ta: ', mask1=tmask,               & 
    107             &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    108          ;             CALL tra_adv_muscl   ( kt, zun, zvn, zwn ) 
    109          ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' adv3 - Ta: ', mask1=tmask,               & 
    110             &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    111          ;             CALL tra_adv_muscl2  ( kt, zun, zvn, zwn ) 
    112          ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' adv4 - Ta: ', mask1=tmask,               & 
    113             &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    114          ;             CALL tra_adv_ubs     ( kt, zun, zvn, zwn ) 
    115          ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' adv5 - Ta: ', mask1=tmask,               & 
    116             &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    117          ;             CALL tra_adv_qck     ( kt, zun, zvn, zwn ) 
    118          ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' adv6 - Ta: ', mask1=tmask,               & 
     99                       CALL tra_adv_cen2    ( kt, zun, zvn, zwn ) 
     100                       CALL prt_ctl( tab3d_1=ta, clinfo1=' adv0 - Ta: ', mask1=tmask,               & 
     101            &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     102                       CALL tra_adv_cen2_jki( kt, zun, zvn, zwn ) 
     103                       CALL prt_ctl( tab3d_1=ta, clinfo1=' adv1 - Ta: ', mask1=tmask,               & 
     104            &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     105                       CALL tra_adv_tvd     ( kt, zun, zvn, zwn ) 
     106                       CALL prt_ctl( tab3d_1=ta, clinfo1=' adv2 - Ta: ', mask1=tmask,               & 
     107            &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     108                       CALL tra_adv_muscl   ( kt, zun, zvn, zwn ) 
     109                       CALL prt_ctl( tab3d_1=ta, clinfo1=' adv3 - Ta: ', mask1=tmask,               & 
     110            &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     111                       CALL tra_adv_muscl2  ( kt, zun, zvn, zwn ) 
     112                       CALL prt_ctl( tab3d_1=ta, clinfo1=' adv4 - Ta: ', mask1=tmask,               & 
     113            &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     114                       CALL tra_adv_ubs     ( kt, zun, zvn, zwn ) 
     115                       CALL prt_ctl( tab3d_1=ta, clinfo1=' adv5 - Ta: ', mask1=tmask,               & 
     116            &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     117                       CALL tra_adv_qck     ( kt, zun, zvn, zwn ) 
     118                       CALL prt_ctl( tab3d_1=ta, clinfo1=' adv6 - Ta: ', mask1=tmask,               & 
    119119            &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    120120      END SELECT 

  • trunk/NEMO/OPA_SRC/istate.F90

    r593 r684  
    5555   !!---------------------------------------------------------------------- 
    5656   !!   OPA 9.0 , LOCEAN-IPSL (2006)  
    57    !! $Header$  
     57   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/istate.F90,v 1.20 2007/06/06 20:25:36 opalod Exp $  
    5858   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    5959   !!---------------------------------------------------------------------- 
    … …  
    8686         neuler = 0                              ! Set time-step indicator at nit000 (euler forward) 
    8787         adatrj = 0._wp 
     88         numror = 0                              ! define numror = 0 -> no restart file to read 
    8889         !                                       ! Initialization of ocean to zero 
    8990         !     before fields       !       now fields           
    90          ;   ub   (:,:,:) = 0.e0   ;   un   (:,:,:) = 0.e0   ; sshb(:,:) = 0.e0 
    91          ;   vb   (:,:,:) = 0.e0   ;   vn   (:,:,:) = 0.e0   ; sshn(:,:) = 0.e0 
    92          ;   rotb (:,:,:) = 0.e0   ;   rotn (:,:,:) = 0.e0 
    93          ;   hdivb(:,:,:) = 0.e0   ;   hdivn(:,:,:) = 0.e0 
     91             ub   (:,:,:) = 0.e0   ;   un   (:,:,:) = 0.e0   ; sshb(:,:) = 0.e0 
     92             vb   (:,:,:) = 0.e0   ;   vn   (:,:,:) = 0.e0   ; sshn(:,:) = 0.e0 
     93             rotb (:,:,:) = 0.e0   ;   rotn (:,:,:) = 0.e0 
     94             hdivb(:,:,:) = 0.e0   ;   hdivn(:,:,:) = 0.e0 
    9495         ! 
    9596         IF( cp_cfg == 'eel' ) THEN 
Note: See TracChangeset for help on using the changeset viewer.