Ignore:
Timestamp:
02/08/12 17:17:04 (12 years ago)
Author:
cholod
Message:

Load NEMO_TMP into vendor/nemo/current.

Location:
vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2
Files:
14 edited

Legend:

Unmodified
Added
Removed

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

    r1 r4  
    3838   !!---------------------------------------------------------------------- 
    3939   !! NEMO/LIM2 4.0 , UCL - NEMO Consortium (2011) 
    40    !! $Id: iceini_2.F90 3145 2011-11-17 15:53:24Z smasson $  
     40   !! $Id: iceini_2.F90 3294 2012-01-28 16:44:18Z rblod $  
    4141   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4242   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limadv_2.F90

    r1 r4  
    4040   !!---------------------------------------------------------------------- 
    4141   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) 
    42    !! $Id: limadv_2.F90 3186 2011-11-27 08:16:19Z smasson $  
     42   !! $Id: limadv_2.F90 3294 2012-01-28 16:44:18Z rblod $  
    4343   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    4444   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limdyn_2.F90

    r1 r4  
    4141   !!---------------------------------------------------------------------- 
    4242   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) 
    43    !! $Id: limdyn_2.F90 3186 2011-11-27 08:16:19Z smasson $ 
     43   !! $Id: limdyn_2.F90 3294 2012-01-28 16:44:18Z rblod $ 
    4444   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4545   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limhdf_2.F90

    r1 r4  
    3636   !!---------------------------------------------------------------------- 
    3737   !! NEMO/LIM2 4.0 , UCL - NEMO Consortium (2010) 
    38    !! $Id: limhdf_2.F90 3186 2011-11-27 08:16:19Z smasson $ 
     38   !! $Id: limhdf_2.F90 3294 2012-01-28 16:44:18Z rblod $ 
    3939   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4040   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90

    r1 r4  
    4747   !!---------------------------------------------------------------------- 
    4848   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) 
    49    !! $Id: limistate_2.F90 2978 2011-10-22 14:05:57Z cetlod $ 
     49   !! $Id: limistate_2.F90 3294 2012-01-28 16:44:18Z rblod $ 
    5050   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    5151   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limmsh_2.F90

    r1 r4  
    3131   !!---------------------------------------------------------------------- 
    3232   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) 
    33    !! $Id: limmsh_2.F90 3186 2011-11-27 08:16:19Z smasson $ 
     33   !! $Id: limmsh_2.F90 3294 2012-01-28 16:44:18Z rblod $ 
    3434   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3535   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90

    r1 r4  
    4343   !!---------------------------------------------------------------------- 
    4444   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) 
    45    !! $Id: limrhg_2.F90 3186 2011-11-27 08:16:19Z smasson $ 
     45   !! $Id: limrhg_2.F90 3294 2012-01-28 16:44:18Z rblod $ 
    4646   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4747   !!---------------------------------------------------------------------- 
    … …  
    9494      CALL wrk_alloc( jpi,jpj, zfrld, zmass, zcorl, za1ct, za2ct, zresr ) 
    9595      CALL wrk_alloc( jpi,jpj, zc1u , zc1v , zc2u , zc2v , zsang ) 
    96       CALL wrk_alloc( jpi,jpj+2, zu0, zv0, zu_n, zv_n, zu_a, zv_a, zviszeta, zviseta, kistart = 0 ) 
    97       CALL wrk_alloc( jpi,jpj+2, zzfrld, zztms, zi1, zi2, zmasst, zpresh, kistart = 0 ) 
     96      CALL wrk_alloc( jpi,jpj+2, zu0, zv0, zu_n, zv_n, zu_a, zv_a, zviszeta, zviseta, kjstart = 0 ) 
     97      CALL wrk_alloc( jpi,jpj+2, zzfrld, zztms, zi1, zi2, zmasst, zpresh, kjstart = 0 ) 
    9898 
    9999      !  Store initial velocities 
    … …  
    576576      CALL wrk_dealloc( jpi,jpj, zfrld, zmass, zcorl, za1ct, za2ct, zresr ) 
    577577      CALL wrk_dealloc( jpi,jpj, zc1u , zc1v , zc2u , zc2v , zsang ) 
    578       CALL wrk_dealloc( jpi,jpj+2, zu0, zv0, zu_n, zv_n, zu_a, zv_a, zviszeta, zviseta, kistart = 0 ) 
    579       CALL wrk_dealloc( jpi,jpj+2, zzfrld, zztms, zi1, zi2, zmasst, zpresh, kistart = 0 ) 
     578      CALL wrk_dealloc( jpi,jpj+2, zu0, zv0, zu_n, zv_n, zu_a, zv_a, zviszeta, zviseta, kjstart = 0 ) 
     579      CALL wrk_dealloc( jpi,jpj+2, zzfrld, zztms, zi1, zi2, zmasst, zpresh, kjstart = 0 ) 
    580580 
    581581   END SUBROUTINE lim_rhg_2 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90

    r1 r4  
    5959   !!---------------------------------------------------------------------- 
    6060   !! NEMO/LIM2 4.0 , UCL - NEMO Consortium (2011) 
    61    !! $Id: limsbc_2.F90 3186 2011-11-27 08:16:19Z smasson $ 
     61   !! $Id: limsbc_2.F90 3294 2012-01-28 16:44:18Z rblod $ 
    6262   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    6363   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90

    r1 r4  
    5252   !!-------- ------------------------------------------------------------- 
    5353   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) 
    54    !! $Id: limthd_2.F90 3186 2011-11-27 08:16:19Z smasson $ 
     54   !! $Id: limthd_2.F90 3294 2012-01-28 16:44:18Z rblod $ 
    5555   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    5656   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90

    r1 r4  
    3030   !!---------------------------------------------------------------------- 
    3131   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) 
    32    !! $Id: limthd_lac_2.F90 3195 2011-12-06 16:40:25Z smasson $ 
     32   !! $Id: limthd_lac_2.F90 3294 2012-01-28 16:44:18Z rblod $ 
    3333   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    3434   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90

    r1 r4  
    3434   !!---------------------------------------------------------------------- 
    3535   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) 
    36    !! $Id: limthd_zdf_2.F90 3195 2011-12-06 16:40:25Z smasson $ 
     36   !! $Id: limthd_zdf_2.F90 3294 2012-01-28 16:44:18Z rblod $ 
    3737   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3838   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90

    r1 r4  
    4646   !!---------------------------------------------------------------------- 
    4747   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) 
    48    !! $Id: limtrp_2.F90 3186 2011-11-27 08:16:19Z smasson $ 
     48   !! $Id: limtrp_2.F90 3294 2012-01-28 16:44:18Z rblod $ 
    4949   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    5050   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

    r1 r4  
    6666   !!---------------------------------------------------------------------- 
    6767   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) 
    68    !! $Id: limwri_2.F90 3200 2011-12-07 15:00:49Z cbricaud $ 
     68   !! $Id: limwri_2.F90 3294 2012-01-28 16:44:18Z rblod $ 
    6969   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    7070   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_2/limwri_dimg_2.h90

    r1 r4  
    22   !!---------------------------------------------------------------------- 
    33   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) 
    4    !! $Id: limwri_dimg_2.h90 3200 2011-12-07 15:00:49Z cbricaud $ 
     4   !! $Id: limwri_dimg_2.h90 3294 2012-01-28 16:44:18Z rblod $ 
    55   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    66   !!---------------------------------------------------------------------- 
    … …  
    4545       IF( lk_mpp      )   CALL mpp_sum ( ialloc  ) 
    4646       IF( ialloc /= 0 )   CALL ctl_warn('lim_wri_2 (limwri_dimg_2.h90) : failed to allocate arrays') 
     47       rcmoy(:,:,:) = 0._wp 
    4748    ENDIF 
    4849 
Note: See TracChangeset for help on using the changeset viewer.