Changeset 7587 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2017-01-20T16:17:56+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r7514 r7587 517 517 ii = 1 518 518 WRITE(ldtxt(ii),*) ' ' ; ii = ii+1 519 WRITE(ldtxt(ii),*) 'domain_cfg : domain size read in ', TRIM( cn_domcfg ), ' file' ; ii = ii+1519 WRITE(ldtxt(ii),*) 'domain_cfg : domain size read in ', TRIM( cn_domcfg ), ' file' ; ii = ii+1 520 520 WRITE(ldtxt(ii),*) '~~~~~~~~~~ ' ; ii = ii+1 521 521 ! … … 536 536 cd_cfg = 'UNKNOWN' 537 537 kk_cfg = -9999999 538 !- or they may be present as global attributes 539 !- (netcdf only) 540 IF( iom_file(inum)%iolib == jpnf90 ) THEN 541 CALL iom_getatt( inum, 'cn_cfg', cd_cfg ) ! returns ! if not found 542 CALL iom_getatt( inum, 'nn_cfg', kk_cfg ) ! returns -999 if not found 543 IF( TRIM(cd_cfg) .EQ. '!') cd_cfg = 'UNKNOWN' 544 IF( kk_cfg .EQ. -999 ) kk_cfg = -9999999 545 ENDIF 546 ! 538 547 ENDIF 539 548 ! … … 669 678 ENDIF 670 679 ! 680 ! Add some global attributes ( netcdf only ) 681 IF( iom_file(inum)%iolib == jpnf90 ) THEN 682 CALL iom_putatt( inum, 'nn_cfg', nn_cfg ) 683 CALL iom_putatt( inum, 'cn_cfg', TRIM(cn_cfg) ) 684 ENDIF 685 ! 671 686 ! ! ============================ 672 687 ! ! close the files
Note: See TracChangeset
for help on using the changeset viewer.