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.
Ticket Comment Diff – NEMO

Changes between Initial Version and Version 1 of Ticket #1579, comment 1


Ignore:
Timestamp:
2015-09-08T13:24:20+02:00 (9 years ago)
Author:
jamesharle
Comment:

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #1579, comment 1

    initial v1  
    4343+      CALL iom_open ( sf_tsd(jp_tem)%clname, sf_tsd(jp_tem)%num )  
    4444+      !! get dimensions 
    45 +      id = iom_varid( sf_tsd(jp_tem)%num, 'gdepth', ddims ) 
     45+      id = iom_varid( sf_tsd(jp_tem)%num, 'gdept', ddims ) 
    4646+      jpk_init = ddims(3) 
    4747+      IF(lwp) WRITE(numout,*) 'Dimensions of ICs: ', ddims, jpk_init 
    4848+      ALLOCATE( gdept_init(jpi,jpj,jpk_init) ) 
    49 +      CALL iom_get ( sf_tsd(jp_tem)%num, jpdom_data, 'deptht', gdept_init,1) 
     49+      CALL iom_get ( sf_tsd(jp_tem)%num, jpdom_data, 'gdept', gdept_init,1) 
    5050+      CALL iom_close( sf_tsd(jp_tem)%num )   ! Close the input file 
    5151+      jpk_initm1=jpk_init-1