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 10398 for utils/tools/NESTING/src/agrif_create_restart_ice.f90 – NEMO

Ignore:
Timestamp:
2018-12-14T17:51:51+01:00 (5 years ago)
Author:
clem
Message:

BGC restart should now work in the nesting tool. All of that must of course be tested in realistic simulations. Waiting for the feedbacks...

File:
1 edited

Legend:

Unmodified
Added
Removed

  • utils/tools/NESTING/src/agrif_create_restart_ice.f90

    r10393 r10398  
    4040  CHARACTER*1 :: posvar 
    4141  CHARACTER*100 :: Child_file,Childcoordinates,varname,Child_Bathy_Level,Child_Bathy_Meter    
    42   REAL*8, POINTER, DIMENSION(:,:,:) :: tabvar00, tabvar3d,tabinterp3d,mask => NULL() 
     42  REAL*8, POINTER, DIMENSION(:,:,:) :: tabvar00, tabvar3d,mask => NULL() 
    4343  REAL*8, POINTER, DIMENSION(:,:,:,:) :: tabinterp4d,tabvar0,tabvar1,tabvar2,tabvar3 => NULL() 
    4444  REAL*8, POINTER, DIMENSION(:) :: tabtemp1D,nav_lev => NULL() 
    45   INTEGER, POINTER, DIMENSION(:) :: tabtemp1DInt => NULL() 
    46   REAL*8, POINTER, DIMENSION(:,:) :: tabtemp2D,zwf => NULL() 
    47   REAL*8, POINTER, DIMENSION(:,:) :: e1f,e2f,e1v,e2v,e1u,e2u,e1t,e2t => NULL() 
    48   REAL*8, POINTER, DIMENSION(:,:,:,:) :: tabtemp4D => NULL() 
     45  REAL*8, POINTER, DIMENSION(:,:) :: tabtemp2D => NULL() 
    4946  INTEGER,DIMENSION(:),POINTER :: src_add,dst_add  => NULL() 
    5047  REAL*8,DIMENSION(:,:),POINTER :: matrix => NULL() 
    … …  
    5350  LOGICAL :: Interpolation,Extrapolation,Pacifique 
    5451  INTEGER :: narg,iargc,ncid,x,y,z 
    55   INTEGER :: ji,jl,status,varid,numdims 
     52  INTEGER :: ii,jl,status,varid,numdims 
    5653  CHARACTER(len=20),DIMENSION(4) :: dimnames 
    5754  CHARACTER(len=80) :: namelistname 
    5855  TYPE(Coordinates) :: G0,G1 
    59   INTEGER :: jpl,jpiglo,jpjglo 
     56  INTEGER :: jpl  
    6057  REAL*8 :: tabtemp0dreal 
    61   INTEGER :: tabtemp0dint 
    6258 
    6359  LOGICAL, PARAMETER :: conservation = .FALSE. 
    … …  
    147143  ! 
    148144  ! 
    149   DO ji = 1,SIZE(Ncdf_varname)       
     145  DO ii = 1,SIZE(Ncdf_varname)       
    150146     !       
    151147     ! loop on variables names 
    152      varname = TRIM(Ncdf_varname(ji)) 
     148     varname = TRIM(Ncdf_varname(ii)) 
    153149     !       
    154150     WRITE(*,*) 'var = ',TRIM(varname)      
Note: See TracChangeset for help on using the changeset viewer.