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 556 for trunk/NEMO/OPA_SRC/IOM/iom.F90 – NEMO

Ignore:
Timestamp:
2006-10-27T17:10:08+02:00 (18 years ago)
Author:
opalod
Message:

nemo_v1_bugfix_068: SM+RB: iom bugfix for Agrif

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/IOM/iom.F90

    r550 r556  
    2525 
    2626   IMPLICIT NONE 
    27    PRIVATE 
     27   PUBLIC   !   must be public to be able to access iom_def through iom 
    2828    
    2929   PUBLIC iom_open, iom_close, iom_varid, iom_get, iom_gettime, iom_rstput 
    … …  
    3636   END INTERFACE 
    3737 
    38    INTEGER ::   iom_init = 0 !  
    3938   !!---------------------------------------------------------------------- 
    4039   !!  OPA 9.0 , LOCEAN-IPSL (2006) 
    … …  
    675674      INTEGER         , INTENT(in)                         ::   kiomid   ! Identifier of the file  
    676675      CHARACTER(len=*), INTENT(in)                         ::   cdvar    ! time axis name 
    677       REAL(wp)        , INTENT(in)                         ::   pvar     ! read field 
     676      REAL(wp)        , INTENT(in)                         ::   pvar     ! written field 
    678677      INTEGER         , INTENT(in), OPTIONAL               ::   ktype    ! variable external type 
    679678      INTEGER :: ivid   ! variable id 
    … …  
    695694      INTEGER         , INTENT(in)                         ::   kiomid   ! Identifier of the file  
    696695      CHARACTER(len=*), INTENT(in)                         ::   cdvar    ! time axis name 
    697       REAL(wp)        , INTENT(in), DIMENSION(        jpk) ::   pvar     ! read field 
     696      REAL(wp)        , INTENT(in), DIMENSION(        jpk) ::   pvar     ! written field 
    698697      INTEGER         , INTENT(in), OPTIONAL               ::   ktype    ! variable external type 
    699698      INTEGER :: ivid   ! variable id 
    … …  
    715714      INTEGER         , INTENT(in)                         ::   kiomid   ! Identifier of the file  
    716715      CHARACTER(len=*), INTENT(in)                         ::   cdvar    ! time axis name 
    717       REAL(wp)        , INTENT(in), DIMENSION(jpi,jpj    ) ::   pvar     ! read field 
     716      REAL(wp)        , INTENT(in), DIMENSION(jpi,jpj    ) ::   pvar     ! written field 
    718717      INTEGER         , INTENT(in), OPTIONAL               ::   ktype    ! variable external type 
    719718      INTEGER :: ivid   ! variable id 
    … …  
    735734      INTEGER         , INTENT(in)                         ::   kiomid   ! Identifier of the file  
    736735      CHARACTER(len=*), INTENT(in)                         ::   cdvar    ! time axis name 
    737       REAL(wp)        , INTENT(in), DIMENSION(jpi,jpj,jpk) ::   pvar     ! read field 
     736      REAL(wp)        , INTENT(in), DIMENSION(jpi,jpj,jpk) ::   pvar     ! written field 
    738737      INTEGER         , INTENT(in), OPTIONAL               ::   ktype    ! variable external type 
    739738      INTEGER :: ivid   ! variable id 
Note: See TracChangeset for help on using the changeset viewer.