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 15187 for NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_read_surf.F90 – NEMO

Ignore:
Timestamp:
2021-08-13T11:34:58+02:00 (3 years ago)
Author:
dford
Message:

Update treatment of SLA and POTM additional/extra variables.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_read_surf.F90

    r15180 r15187  
    204204            IF ( inpfiles(jj)%nvar /= kvars ) THEN 
    205205               CALL ctl_stop( 'Feedback format error: ', & 
    206                   &           ' unexpected number of vars in feedback file' ) 
     206                  &           ' unexpected number of vars in feedback file', & 
     207                  &           TRIM(cdfilenames(jj)) ) 
    207208            ENDIF 
    208209 
    209210            IF ( ldmod .AND. ( inpfiles(jj)%nadd == 0 ) ) THEN 
    210                CALL ctl_stop( 'Model not in input data' ) 
     211               CALL ctl_stop( 'Model not in input data in', & 
     212                  &           TRIM(cdfilenames(jj)) ) 
    211213               RETURN 
    212214            ENDIF 
    … …  
    214216            IF ( (iextr > 0) .AND. (inpfiles(jj)%next /= iextr) ) THEN 
    215217               CALL ctl_stop( 'Number of extra variables not consistent', & 
    216                   &           ' with previous files for this type' ) 
     218                  &           ' with previous files for this type in', & 
     219                  &           TRIM(cdfilenames(jj)) ) 
    217220            ELSE 
    218221               iextr = inpfiles(jj)%next 
    … …  
    228231            END DO 
    229232            IF ( ldmod .AND. ( inpfiles(jj)%nadd == iaddin ) ) THEN 
    230                CALL ctl_stop( 'Model not in input data' ) 
     233               CALL ctl_stop( 'Model not in input data', & 
     234                  &           TRIM(cdfilenames(jj)) ) 
    231235            ENDIF 
    232236 
    233237            IF ( (iadd > 0) .AND. (iaddin /= iadd) ) THEN 
    234238               CALL ctl_stop( 'Number of additional variables not consistent', & 
    235                   &           ' with previous files for this type' ) 
     239                  &           ' with previous files for this type in', & 
     240                  &           TRIM(cdfilenames(jj)) ) 
    236241            ELSE 
    237242               iadd = iaddin 
    … …  
    283288                  IF ( inpfiles(jj)%cname(ji) /= clvarsin(ji) ) THEN 
    284289                     CALL ctl_stop( 'Feedback file variables not consistent', & 
    285                         &           ' with previous files for this type' ) 
     290                        &           ' with previous files for this type in', & 
     291                        &           TRIM(cdfilenames(jj)) ) 
    286292                  ENDIF 
    287293               END DO 
    … …  
    293299                        IF ( inpfiles(jj)%caddname(ji) /= claddvarsin(jadd) ) THEN 
    294300                           CALL ctl_stop( 'Feedback file additional variables not consistent', & 
    295                               &           ' with previous files for this type' ) 
     301                              &           ' with previous files for this type in', & 
     302                              &           TRIM(cdfilenames(jj)) ) 
    296303                        ENDIF 
    297304                     ENDIF 
    … …  
    302309                     IF ( inpfiles(jj)%cextname(ji) /= clextvarsin(ji) ) THEN 
    303310                        CALL ctl_stop( 'Feedback file extra variables not consistent', & 
    304                            &           ' with previous files for this type' ) 
     311                           &           ' with previous files for this type in', & 
     312                           &           TRIM(cdfilenames(jj)) ) 
    305313                     ENDIF 
    306314                  END DO 
Note: See TracChangeset for help on using the changeset viewer.