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

Changeset 2084


Ignore:
Timestamp:
2010-09-10T16:29:12+02:00 (14 years ago)
Author:
cetlod
Message:

minor bug correction

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/istate.F90

    r2083 r2084  
    7575      rhop (:,:,:) = 0.e0 
    7676      rn2  (:,:,:) = 0.e0  
     77      ta   (:,:,:) = 0.e0     
     78      sa   (:,:,:) = 0.e0 
    7779 
    7880      IF( ln_rstart ) THEN                    ! Restart from a file 
     
    8082         neuler = 1                              ! Set time-step indicator at nit000 (leap-frog) 
    8183         CALL rst_read                           ! Read the restart file 
     84         CALL tra_swap                           ! swap 3D arrays (ta,sa)  in a 4D array 
    8285         CALL day_init                           ! model calendar (using both namelist and restart infos) 
    8386      ELSE 
     
    123126         ENDIF 
    124127 
    125          ta(:,:,:) = 0.       ;     sa(:,:,:) = 0. 
    126          CALL tra_swap 
     128         CALL tra_swap                     ! swap 3D arrays (ta,sa)  in a 4D array 
    127129         CALL eos( tsb, rhd, rhop )        ! before potential and in situ densities 
    128           
    129130         IF( ln_zps .AND. .NOT. lk_c1d )   & 
    130131                           CALL zps_hde( nit000, jpts, tsb, gtsu, gtsv,  &    ! Partial steps: before horizontal gradient 
Note: See TracChangeset for help on using the changeset viewer.